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000000 

oooooo 



020552 



OOOOOO 
OOOOOI 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 



i 1 ! Lh 


!b>n 


ENABL 


LG 


EWABL 


AMA 


DSABL 


GEL 



Copyright (C) 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 
1987, 1988, ;I989, 

..jwi 1 \j Uiiijj U t» ST' aySueiTiS, j. 'iti.. 

Nashville, Tennessee 

This software is furnished under a license for use only 
on a isingle coiTipyber sysijeiTi anu iTiay ue CGpj.cu only uiiiwii 
mc inclusion of uhe above copyrign* notiice. inis 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
fur use on such sy stein and tu one who agrees to these 
license terms. Title to and ownership of the software 
shall at all times remain with SS<H Computer Systems, Inc. 



i Over 1 ay id 

; Processor Status Word 

.: EM I error code return values 





. csEC r 


TSEM4 


rSEM4: 


RAD50 


/EH4./ 


PS 


:~ 


177776 


> 

ECO 


rr 




ECl 


:r. 1 




EC 2 


--• 2 




EC 3 


■"= 3 




FC4 


==: 4 




ECS 


.r 5 




EC6 


= 6 




EC7 






EC8 


= 8. 




EC9 


- 9. 




EC 10. 


= 10. 





Ma c r o calls 

. MCALL . READW, . CLOSE, . CRRG 
Global definitions 

GLOBL KMNEMT, DETEMT, PMEMT, SPLEMT, SSEMT, KILJOB 

. GLOBL CLEMT, CLCLDS, VLSEMT 

Global references 



GLOBL WC*LEN, WC*WPR, RC«LEM 

GLOBL WC*$SZ, WCBBAS, WCfSI Z, WC«OFF, WC*PAR, WC*TRP, SR*WCB 

GLOBL NUMWCB, RCBBAS, RCBEND, SHRRCB, SHRRCN, RC*FLG, RC*DSP, RC*LCG 

GLOBL MA.XSRD, SR*PAR, SR4PDR, SR*PX, SR*FLG, SR. MOR, SR. DSP, DOTRMP 

GLOBL *VBELL, IB$SF2, SF2LEN, GETQ, IB*IJ, SPPRED, *VNOTT, LCXTBL 

GLOBL ^NOVLN, fSUCF, $LOFCF, fNOIN; MAXSEC, LSECPT, FSTSL, LSTSL, INITLN 

GLOBL LSW6, CSHALC, CSHINI, SPLDEL, SETDTR, COSDTR, CLWTIM, *RBRK, LINSWT 

GLOBL flOMAP, R. GSTS, INTPR I , CURRDB, UPARO, RF*WRT, RT*FLe, LPROG 

GLOBL *INKMN, LSW4, BADEMT, EMTBLK, LOGOFF, SETHAN, REBOOT 

GLOBL KMCPCX, EMSPHL, EMSPNH, GTUKBL, LEMTPC, CLREST, *RDSAV, LSWl 1 
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.LAV/ 
111 

112 
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114 



Wednesday 


18-Jan-89 12: 


. GLOBL 


EMTLEV, LJSW> J 


. GLOBL 


CHNSIZ,R«XCHN 


. GLOBL 


CHAIN, CINFLG, 


. GLOBL 


MI MAGE, *VIRJB 


. GLOBL 


TO*TAB, *FORM, 


. GLOBL 


*SETRN, USRSTK 


, GLOBL 


UMODE. UPMODE, 


. GLOBL 


VO*RDBiR. GSIZ 


. GLOBL 


W. NRID, W. NOFF 


. GLOBL 


OVRHC, SPOLGO, 


. GLOBL 


LNPRIM, CL*XLN 


GLOBL 


S*SPND, QNSPND 


, GLOBL 


ENQTL, S*CPU, L 


. GLOBL 


fDISCN, TRNSTR 


, GLOBL 


DETCBS, GETUCH 


. GLOBL 


MAPPLS, VALADW 


, GLOBL 


CUPARO, CUPDRO 


GLOBL 


P2*TRM, PRIVC2 


. GLOBL 


FSTIOL,LSTIOL 


. GLOBL 


LOUTIR. TTINCP 


. GLOBL 


*SXON, LSWiO, C 


GLOBL 


CL*OPT, CL«SfA 


. GLOBL 


CL$EPN, CL*EPS 


. GLOBL 


CL«ORS. CL*ORA 


. GLOBL 


PMFLGS, PMCELS 


. GLOBL 


P2«WRL> LPROJ, 


. GLOBL 


$UDSPC, ODTBAS 


. GLOBL 


SETSTN 
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SwLOC, PRGSIZ, SUTOP, CXTRMN, RtCHN, CLCLER 

, RUNCHN/ PRGTQP, CSIARE, OVLBIT, NEWJSW 

UERSEV, ERRLOC, RUNARG, CINDAT, CPLEMT, RMNBAS 

, LSW9, RMON, LSW2, «SCOPE, TO«SCP, *TAB 

TO*FF, TO«LC, CXTRMN> R*TTOP, TTOPTS> RMNBAS 

, *RNIOP, flOMAP, SETMAP, *RNMLK, LQUAN, JSTK 

USTART, *DEBUG, DBGENT. ABORT, SUPRTN, VIDCSR 

, RUNRDB, VO*WDB, VO*WDE, R. GID, RC*BAS 

, KPARO, W. SIZE, SETERR, NSPLDV 

EMTXIT, tDILUP, LSW, *SUSPN, FORCEX, *DETCH 

, CM*BRK, CM*ON, CL*STA, LXCL, CLXICP, LINIR 

, LSTPL, CLXBRK, *CTRLS, LSW3, *CTRLO 

OTSPC, LOTSIZ, PO*BYP 

, PO*DET, PRIVCO, F3TDL, LSTDL, vALADB, L3UCF 

, CORUSR, LPARNT, URO, RPAR, RPDR, VPLAS 

, RDB, RDBEND, RT*NAM, RT**SZ, RT«BAS, RT*TOP 

, UPDRO, CS*OPN, CHNADR, C. CSW, NSPLDV, SPLSHF 

, CLTOTL, LSTHL, $HARD, LCLUNT. *DEAD, SPLSFF 

, CL*LIX. CL*RQH, CLfWQH, LCLUNT, NEDCHR, SPLSWF 

, *AUTO, ILSW2, S9600, SETSPD, LINRTS, CLOTIR, CLINCP 

0*DEF, *TAB, CO*TAB, CO*FF, *SBIT, CO*SBT 

, CL*COL, CL*LEN, CL*L1N, CL*SKP, CL*WiD 

, CL*EPP. CS«BPL, CS«NMX, CLDEVX, C. DEVQ, CIDEVX 

, CH*EFP, *XCHAR, PMCELS, PMUSER, PMRUN, PMBASE, PMTOP 

, PMNBPC, ENSYS, FP*MOV, VPAR6, PMPAR, KPAR6 

P2*GRP, P2*SAM, VSWPFL, DFJMEM 

, SR3MMR, USDSPC, IDSFLG 



Macros to enable and disoble interrupts. 



ENABLE INTERRUPTS 



MACRO DISABL ; DISABLE INTERRUPTS 

BIS #340, e#ps 
. ENDM DISABL 

. MACRO ENABL 

BIG INTPRI,e#PS 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments : 
MSG = Name of error message to print. 
ARG = ^Optional) argument value to display with error message. 

.GLOBL DIEM3G, DIEARG, SVSHLT 

MACRO DIE MB<o, ARG 

MOV MSG, @#DIEMGG 

.IF NB, ARG 

MOV ARG, @#DIEARG 
. ENDC 

CALL @#SYSHLT 

. ENDM DIE 

Macro definition for calling global routines residing in mapped 
system regions. 
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X i. -v; 

■* ■! / 
.1 lO 

117 
118 
119 
120 
121 
122 
123 



. IF 



. ENDC 
CALL 
. WORD 
. ENDIi 



B, ENTADD 

ERROR iOCALL SPECIFIED WITH NO ENTRY ADDRESS 
. MEXIT 



OVRHC 
ENTADD 



i CALL THE OVERLAY HANDLER 
; SPECIFY THE ENTRY POINT 
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TSKMON EHT's 



«-^l*{ I II 



TSKMuN iz.rl \ ' b 



3 








4 








5 








6 








7 


000002 


032761 


OOOOOOG 


8 


000010 


001002 




9 


000012 


000137 


OOOOOOG 


10 








11 








12 








13 


000016 


013702 


000002G 


14 


000022 


020227 


000022 


15 


000026 


103371 




16 


000030 


006302 




17 


000032 


000172 


000036 ' 


18 








19 








20 








21 








22 








23 


000036 


000102' 




24 


000040 


001362' 




25 


000042 


OOOOOOG 




26 


000044 


OOOOOOG 




27 


000046 


OOOOOOG 




28 


000050 


001752' 




29 


000052 


002122' 




30 


000054 


002140' 




31 


000056 


00 1 406 ' 




32 


000060 


001436' 




33 


000062 


001466' 




34 


000064 


001540' 




35 


000066 


OOOOOOG 




36 


000070 


OOOOOOG 




37 


000072 


OOOOOOG 




38 


000074 


OOOOOOG 




39 


000076 


001674' 




40 


000100 


OOOOOOG 




41 




000022 





KMNEMT 15 jumped to when a KMON specific EMI is executed. 
It interprets the sub-function (in 2nd word of arg block) 
and branches off to the appropriate processing routine. 



BNE 

2$: JMP 



#*INKMN, LSW4<R1 ); IS KMON RUNNING NOW? 

1* iBR IF YES 

BADEMT > ILLEGAL EMT IF KMON NOT RUNNING 



Get sub-function code and branch off to processing routine. 

i*; MOv EnrBLK-*-2» R2 > GET SUB— FUNCTION CODE 

VALID SUB-FUNCTION CODE? 
ERROR IF NOT 

CONVERT TO WORD TABLE INDEX 
i ENTER PROCESSING ROUTINE 



code 126. 



MOV 


EnrBLK+2, R2 


CMF 


R2, #KMNMAX 


BHIS 


2* 


ASL 


R2 


JMP 


eKMNSUe(R2) 



; Table of KMON subfunct 


ions 


for EMT c 


i (Sub-function code is 


stor 


ed in 2nd 


KMNSUB: . WORD 


KMRUN 




; 00 In 


. WORD 


KMSPLG 






01 In 


. WORD 


LOGOFF 






02 Lo 


. WORD 


SETHAN 






03 Up 


. WORD 


REBOOT 






04 Re 


. WORD 


KILEMT 






05 Fo 


. WORD 


CSHNEW 






06 CI 


. WORD 


KMSPDL 






07 De 


. WORD 


KMSPEK 






10 Ge 


. WORD 


KMSPOK 






11 St 


. WORD 


KMSPRS 






12 Su 


. WORD 


CLXCON 






13 Ct 


. WORD 


KMCPCX 






14 Co 


. WORD 


EMSPHL 






15 Se 


. WORD 


EMSPNH 






16 Se 


. WORD 


GTUKBL 






17 Ac 


. WORD 


STTTLN 






2© St 


. WORD 


SETSTN 






21 Se 


KMNMAX = 


<:. -KMNSUB 


>/P 







word of EMT arg block) 

litiate execution of a SAV file 

litiate a spooler 

>g off the current job 

idate running copy of handler 

'boot the system 

)rce logoff of a job 

ean out data cache 
flete a spool file 
>t data from within system 
;ore data into system 
ispend or resume a job 
'OSS connect TT line to CL unit 
>py data from context blk 
>t HOLD mode for a spooler 
>t NOHOLD mode for a spooler 

cess block in user key region 
;art up a terminal line 
>t site name for flag pages (in TSSPL2) 
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000102 
000106 
000114 



000126 
000132 



005061 
042761 



011661 
106637 



OOOOOOG 

OOOOOOG OOOOOOG 
177777 OOOOOOG 



OOOOOOG 
OOOOOOG 



000136 052761 OOOOOOG OOOOOOG 
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i^x^cuirAon 



of 



SAV file 



KMRUN <126, 0) is the EMT executed by KMON to start execution of 

a SAV file. On entry user channel # RUNCHN must be open to the SAV file. 

The SAV file is read into memory and control is transfered to it. 

KMRUN: CLR LEMTPC<R1) ; CLEAR ADDRESS OF LAST USER-MODE EMT 
13 1 C #*INKMN, LSW4<R1)J SAY WE ARE EXITING FROM KMON 
MOV #-l,EMTLEV ; SAY NO EMT IS BEING DONE 

Set up JSW for job so virtual-image flag will be set before mem all«c 

. OCT MCTM ICM.I 



MOV 


NEWJSW. - < SP ) 


MOV 


<SP),LJ3W<R1) 


MTPD 


@#JSWLOC 



Set fRDSAV flag to prevent PKSTAT/UPSTAT from saving/restoring the 
JSW and Error byte in locations 44 and 52 of memory. This is necessary 
because SUTOP is going to change mapping to an uninitialized area 
of memory and we don't want to use the contents of memory locations 
until we actually get the SAV image in and set it up. 



BIS 



#«RDSAV.. LSWIKRI ); Say we are reading in SAV file 



Set top of memory for the sav file we are about to start. 



000144 
000150 



013700 

105737 



OOOOOOG 
OOOOOOG 



MOV PR0SIZ,RO 
TSTB VSWPFL 
BNE 39* 
Changing this to always 
work correctly in a 64k 
. GVAL offset 266 to det 
to 177774 if DFLMEM is 
we only map PAR7 throug 
doing 
then 
that 



000154 
000156 
000162 
000164 
000166 
000170 
000172 



000406 
013700 
000300 
006300 
005300 
006300 
004737 



OOOOOOG 



OOOOOOG 



39*: 



a , SETTOP. If the 


PRGSIZ 


wi 1 1 be big 


USR base is below 


BR 


39* 


MOV 


DFJMEM. RO 


SWAB 


RO 


ASL 


RO 


DEC 


RO 


ASL 


RO 


CALL 


SUTOP 



;SET TOP OF MEMORY FOR JOB REGION 
; IS THIS A SWAPPING SYSTEM? 
i IF SWAPPING USE JOB SIZE, ELSE 
use PRGSIZ allows RT-11 utilities to 
b DFLMEM no swapping system. They use 
ermine base of USR (we set this in SUTOP 
64kb} then TST -<R0) (which traps because 
h the top of simulated RMON), prior to 
program is virtual (doesn't map RMON)> 
ger than 56kbj if not, then pretend 
RMON. See TSKM2C CMDRUN for PRGSIZ set up. 

i Always use PRGSIZ as set up by TSKMON 
RETRIEVE DEFAULT MEMORY SIZE 
CONVERT TO ADDRESS ( * 256. > 

* 512. 
LEAVE 1 WORD SHORT (ELSE 64. KB = 0) 



* 

SET 



1024. 
TOP OF 



= ALLOCATED 
MEMORY 



TOP ADDRESS IN BYTES 



000176 
000202 
000204 
000210 

^U \-^ ^if Kim ^ Ui^ 

000216 
000220 
000224 
000226 



013700 
010003 
062703 
010002 
062702 
010200 
012704 
012223 
077402 



OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOC 



4*: 



Transfer the channel information from internal channel RUNCHN 
into user's channel # 17 

MOV CXTRMN, RO ; Get address of .job's simulated RMON 

MOV RO, R3 

ADD #R*CHN+<::i7*CHNSlZ>, H3 ; Point to chan blk for channel 17 

MOV RO, R2 

ADD #R*XCHN+«RUNCHN-21>*GHNSIZ>; R2 .Point to RUNCHN block 

MOV R2, RO ; Save pointer to RUNCHN block 

MOV #CHNSIZ/2,R4 ; Get # words to copy 

MOV (R2)+, (R3)+ J Copy RUNCHN to channel 17 

SOB R4, 4* 
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5B 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



000232 
000236 
000240 
000242 
000244 
000276 
000300 



000304 
000312 
000314 



f If 1 'nf » 1 r 1 



013703 
000241 
006003 
005203 

103002 
000137 



032737 
001003 



\ * \-\^ I 



; tiay RUNGHN is ciosed 



OOOOOOC 



Read the SAV file into memory 

nOV PRGTOP, R3 ; GET HIGHEST ADDRESS IN SAV FILE IMAGE 

CLC 

ROR R3 ; GET # WORDS TO READ 

INC R3 > CVT FROM TOP ADDRESS TO # WORDS 

. READW #CSIARE^ #i7j #0> R3> #0 



001000 ' 



BCC 
JMP 



16* 
9* 



; Br if ok 

; Error during read 



It- program is not over .i ayeo.. ciose cnanneA i/. 



OOOOOOG OOOOOOG 16*: 



BIT ttOVLBIT.. NEWviSW 
BNE 3* 
. CLOSE #17 



.: IS THE PROGRAM OVERLAYED? 

; IF YES THEN LEAVE CHANNEL 17 OPEN 

; CLOSE CHANNEL 17 



004737 001130' 



000326 
000332 
000340 
000344 
000346 
000352 
000360 
000364 
000366 
000372 



000376 
000402 
000404 
000410 



013703 
042737 
105737 
001422 
105037 
052737 
032703 
001034 
012704 
004737 



113746 
000316 
106637 
000425 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

000140 
001100' 



OOOOOOG 
OOOOOOG 



See if we need to allocate extended-memory region for virtual overlays 
3$: CALL KMRVM ; See if we need to allocate XM region 

If a CHAIN was done., move data from context block to chain data area. 

GET JSW FOR JOB BEING STARTED 

CLEAR CHAIN FLAG 

WAS A . CHAIN DONE? 

BR IF NOT 

SAY CHAIN IS FINISHED 

SET CHAIN-FLAG 

DOES JOB WANT TO PRESERVE CHAIN DATA AREA? 

BR IF YES 
R4 i GET # WORDS TO MOVE 
i Move chain data 

If a .CHAIN was done^ re&et the previous user's error cell <52&53). 

GET THE PREVIOUS ERROR SEVERITY LEVEL 
PUT INTO HIGH BYTE 

RESTORE THE USER ERROR SEVERITY LEVEL 
SKIP THE INSTRUCTIONS TO CLEAR ERRLOC 

We are not doing a . CHAIN. 

See if ue need to pass run argument string through chain data area. 



MOV 


NEWJSW, R3 


BIC 


#CHAIN, NEWJSW 


TSTB 


CINFLG 


BEG 


20* 


CLRB 


CINFLG 


BIS 


#CHAIN, NEWJBW 


BIT 


#CHAIN, R3 


BNE 


1* 


MOV 


#« 1000-500/ 


CALL 


CINMOV 



MOVB 


UERSEV. -<SP) 


SWAB 


(SP) 


MTPD 


@#ERRLOC 


BR 


6* 



000412 
000416 
000420 
000426 
000432 
000436 
000440 
000444 
000450 
000452 



105737 
001005 
012737 
005037 
032703 
001007 
013704 
062704 
006204 
004737 



OOOOOOG 

000001 0000 lOG 
0000 12G 
OOOOOOG 

0000 lOG 
0000 1 3 

001100' 



30*: 






TSTB 


RUNARG 


BNE 


22* 


MOV 


#1. CINDAT+IO 


CLR 


CINDAT+ia 


BIT 


#CHAIN, R3 


BNE 


1* 


MOV 


CINDAT+i0> R4 


ADD 


#13; R4 


ASR 


R4 


CALL 


CINMOV 



See if we need to pass RUN command line 

Br if yes 

Say argument length = 1 

Say argument string is null 

Does job want to preserve chain data area7 

Br if yes 

Get # bytes in run argument string 

Get # bytes below 512 and round up 

Get # words to move 

Move run argument to chain data area 



Initially clear user's error cell (52&53). 



I 
I 
I 

i 
I 
I 
C 
I 

f 

i 
( 
( 

I 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
i;j6 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 

168 
169 
170 

171 



000456 
000460 



000464 
000470 



000474 
000500 
000506 

000510 



000526 
000530 
000534 
000540 
000542 
000546 
000552 
000554 
000560 
000564 
000566 
000572 
000576 
000600 
000604 
000610 
000614 
000620 



000624 
000632 
000634 



000640 
000644 



000646 
000652 



UV/30*tD 

106637 



012746 
006637 



012746 
032737 
001405 

052761 



106637 



005000 
016102 
032702 
001402 
052700 
032702 
001402 
052700 
032702 
001402 
052700 
032702 
001402 
052700 
013702 
010062 
012746 
106637 



00 1 402 
004737 



013746 
106606 



013746 
011661 



OOOOOOG 



MTPD 



— ^ar » 
@#ERRLQC 



; INITIALLY ZERO USER'S ERROR CELL 



Store CEMT 356D instruction in job's louj memory av^a to be used 
to exit from a completion routine. 



104356 
OOOOOOG 



6«: 



MOV #104356, -(SP) 
MTPI @#CPLEMT 



; CEMT 3563 

; STORE INTO JOB'S AREA 



Set pointer to simulated monitor vector table that is mapped through 
user paae 7 < 160000-177777) . 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

I -7 "7 "7-7 A 
J. / / / / O 

OOOOOOG 



14*; 



MOV 
BIT 
BEO 
BIS 
MOV 
MTPD 



#RMNBAS> -<3P> 
#VIMAGE.. NEWviSW 
14* 

#*VIRJB> LSW9(Ri) 
#177776. ^SP) 
g#RMON 



VIRTUAL ADDRESS OF MONVEC TABLE 

IS THIS A VIRTUAL JOB? 

BR IF NOT 

SET VIRTUAL- JOB FLAG FOR THE SYSTEM 

SET THIS AS RMON BASE FOR VIRTUAL JOB 

SET POINTER IN USER'S SPACE 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 
000030 



OOOOOOG OOOOOOG 
001024' 

OOOOOOG 



Set LMT vector cell (location 30) in user's avBa to point to 
cell in simulated HMuN vtMrtor. 

INITIALIZE OPTION WORD VALUE 

GE! VALUE UH LSWk' J-LAGb PUK LINE 

IS THIS A SCOPE TYPE TERMINAL? 

BR IF NOT 

SET SCOPE FLAG 
10*: BIT #*TAB,R2 ; HARDWARE TABS? 

BR IF NOT 

SET TAB FLAG 
11*: BIT #*FORM, R2 i HARDWARE FF? 

BR IF NOT 

SET FORM-FEED FLAG 
12*: BIT #T0*LC.R2 ; ALLOW LOWER-CASE INPUT? 

BR IF NOT 

SET LC FLAG 
13*: MOV CXTRMN, R2 ; GET ADDRESS OF BASE OF SIMULATED RMON FOR JOB 

SET TT OPTION WORD VALUE 

-(SP)iGET ADDRESS OF TT OPTION CELL 

SET IN EMT TRAP VECTOR 

See if lue need to some special initialization for SETUP program 



CLR 


RO 


MOV 


LSW2<R1 ).. R2 


BIT 


#*SCOPE, R2 


BEQ 


10* 


BIS 


#TO*SCP, RO 


BIT 


#*TAB, R2 


BEQ 


11* 


BIS 


#TO*TAB. RO 


BIT 


#*FORM, R2 


BEQ 


12* 


BIS 


#TO*FF.. RO 


BIT 


#TO*LC. R2 


BEQ 


13* 


BIS 


#TO*LC> RO 


MOV 


CXTRMN, R2 


MOV 


RO, R*TTOP(RP) 


MOV 


#TT0PTS+RMNBAS+2 


MTPD 


@#30 



JIJI I 

BEQ 
CALL 



#*SE I KN, Lfc>W9<Rl > ; Is this the SETUP program being started? 



19* 
SETINI 



Set up user 's SP 

19*: MOV USRSTK, -<SP) 
MTPD SP 



i Br if not 

; Initialize for SETUP program 



.; STACK POINTER FOR PROGRAM BEING STARTED 
; SET AS USER-MODE SP 



Set up JSW for job in memory now that SAV image has been read in 



I 
f 



( 

K 
( 
f 
f 
t 
I 



OOOOOOG 
OOOOOOG 



MOV NEWJSW, -<SP) 
MOV ( SP ) , L JSW < R 1 ) 



i SET NEW JSW 



C 
I 

i 
I 
i 
< 
( 
I 
i 



TSEM4 


KHRUN 


172 


173 


174 


175 


176 


177 


178 


179 


180 


IBl 


182 


183 


104 


185 


186 


187 


180 


189 


190 


191 


192 


193 


194 


195 


196 


197 


190 


199 


200 


201 


202 


203 


204 


205 


206 


207 


208 


209 


210 


211 


212 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


224 
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000656 106637 OOOOOOG 



'pn 



^^^sJOWL-QC 



000662 042761 OOOOOOG OOOOOOG 



000670 032761 OOOOOOG OOOOOOG 

000676 001403 

000700 052761 OOOOOOG OOOOOOG 



000706 004737 OOOOOOG 



000712 032761 OOOOOOG OOOOOOG 

000720 001410 

000722 042761 OOOOOOG OOOOOOG 

000730 012700 OOOOOOG 

000734 012710 060007 

000740 10437t? 



000742 005061 OOOOOOG 



000746 012706 OOOOOOG 
000752 012746 OOOOOOC 
000756 013746 OOOOOOG 



000762 032761 OOOOOOG OOOOOOG 

000770 001402 

000772 000137 OOOOOOG 



\J\JKJ / / O \J\JKJ\J\Jc 



Now that memory image is set up correctly, clear the flag that says 
we are reading in the faAV file. 

BIG #*RDSAV, LSWIKRI); Finished reading in SAV file 

See if uje should map PAR 7 for job to I/O page 

BIT #«RNIOP, LSW9(R1); Is I/O page access wanted? 

BEQ 17* i Br if not 

BIS #tIOMAP, LSW6(R1); Set flag saying to map PAR 7 to I/O page 

Make sure memory management is set up correctly for the job 

17*: CALL SETMAP ; Set up memory mapping for the job 

See if we need to lock this program in low memory 

BIT #*RNMLK, LSW9<R1) J Should we lock this program in memory? 

BEO IS* ; Br If not 

W.1.C #*RNMLKW..SWv<Kl .»; Clear the flag 

MOV #CSIARE, RO ; Point to EMT arg block area 

MOV #<7+<140«-400», <R0) ; Set up EMT argument block 

EMT 375 ; Try to lock job in memory 

Give t o b a full t i m e "■ s 1 i c e 

18*: CLR LQUAN<R1) ; GIVE FULL TIME-SLICE ON STARTUP 

Push starting PSW and PC onto stack 



MOV 
MOV 
MOV 



#JSTK, SP i CLEAN OFF CONTEXT-BLOCK STACK 
#UMODE ' UPMODE. -<SP ) i USER-MODE PS 
USTART, -<SP> ; STARTING ADDRESS 



See if we are to start program under the debugger 

BIT #*DEBUG, LSW9<R1 )> Are we to run program under the debugger? 

BEO 15* .:Br if not 

JMP DBGENT ; Enter debugger to start the program 



Use RTI to enter user's program in user mode. 



15*: 



K 1 i 



001000 105037 OOOOOOG 

001004 

001012 012705 000007 

001016 005004 

001020 000137 OOOOOOG 



Error reading SAV file 

9*: CLRB CINFLG 

. CLOSE #17 

MOV #EC7.. R5 

CLR R4 

vJMP ABORT 



; ENTER PROGRAM IN USER-MODE 



; Say chain is not being done 
jClose the SAV file channel 
; Get error code 



tAhnrt: the mh 



f 
I 

i 
I 
i 
% 
I 
I 
I 
I 
I 
\ 
i 

« 

i 

i 

i 
c 



( 
I 



001024 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
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00 
00 
00 
00 
00 



1024 
1030 
1034 
1040 
1044 



00 
00 
00 
00 
00 
00 
00 
00 



1046 
1052 
1054 
1060 
1062 
1066 
1070 
1074 



012746 

006620 
013746 
006620 
012746 
006620 
012746 
006620 



001076 000207 



r e T f L> i ill » |J bf t. 3. el i 



i M i t i a 1 X j: a 3. Oh ujtien starving 



execution of SETUP program. 
We must do this because SETUP tries to call the OETCSR routine to 
get the CSR address of the video controller when running on the PRO. 



SETINI: 



012746 177344G 

106637 0000000 

012746 0000020 
106620 



012766 



OOOOOOG 



OOOOOt 



000207 



Set up a special RMON pointer for SETUP which will cause offset 
434 to point to a routine which will return video CSR address. 

MOV #SUPRTN-434, - <SP); Set fake address for RMON pointer 

MTPD S#RMON i Store RMON pointer into job space 

MOV #SUPRTN* RO ; Get location where ws store code in job 

MOV #SUPRTN+2, -(SP) ; Set address where code will be stored 

MTPD <R0)+ i Store into job space 

Now store code in job space which will return CSR address for 
video controller on the top of the stack. 

; LMOV #csr,2<SP)3 

i Store into program space 

j Qet CSR address for video controller 

; Store into program space 

J Store stack offset for MOV instruction 

; C RETURN 3 

; Store into program space 



MOV 


#012766, -(SP) 


MTP I 


(R0) + 


MOV 


VIDC3R, -<SP) 


MTP I 


(R0) + 


MOV 


#2, - < 3P ) 


MfPI 


<R0)'+- 


MOV 


#207, -<SP) 


MTPT 


<R0) + 


F" i n i 5 h e d 




RETURN 





I 

I 



I 

< 

i 
i 
i 
< 
i 
f 
4 
I 
f 
< 

I 



< 
i 
( 

i 
C 
I 
f 
< 
f 
i 
i 
f 
i 
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3 








4 








5 








6 








7 








8 


001100 


010346 




9 


001102 


010446 




10 








11 








12 








13 


001104 


012700 


000500 


14 


001110 


012703 


0000000 


15 


001114 


012346 




16 


001116 


106620 




17 


001120 


077403 




IS 








19 








20 








21 


001122 


012604 




22 


001124 


012603 




23 


001126 


000207 





Mo 



chain data ffom job LOntext ai-ea to locations starting at 500 



in the memory image of the program being started. 

Inputs: 
R4 = Number of words to move. 



CINMOV: 


MOV 


R3, -(SP) 




MOV 


R4, -<SP) 


; Move 


the dat 


a 




MOV 


#500, RO 




MOV 


#CINDAT>R3 


2*: 


MOV 


(R3)+, -<SP> 




MTPD 


<R0) + 




SOB 


R4, 2* 


; Fini 


shed 






MOV 


( SP ) +, R4 




huV 


<fc)P)+, H3 




RETURN 





>Qet address of area to leceive data 

i Point to chain data area in context block 

.i Move chain data from context block to job 



i 

i 

r 



< 
I 
C 
I 
f 
i 
t 
€ 

i 

4 

I 

< 

( 



I 



i 



f 

f 

i 
f 
( 
I 
f 
C 
I 
i 
I 
i 

t 
I 
( 



001130 
001132 
001134 
001136 
001140 



001142 
001146 
001152 



010146 
010246 
010346 
010446 
010546 



106537 000066 
022627 001000 
103471 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

54 
55 
56 
57 
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001154 
001160 
001162 
001164 
001170 
001174 
001200 
001202 
001206 
001226 



i06D37 
012601 
010102 
062702 
106562 
1 2637 
001456 
005037 

103451 



001230 
001234 
001236 
001242 
001244 
001250 
001254 
001256 
001262 
001264 
001270 
001272 
001300 
001304 
001310 
001314 
001320 
001326 
001332 
001334 



106561 
012602 
106561 
012603 
1 3704 
016400 
010446 
106662 
010005 
106562 
062605 

013746 
010537 
005037 
012637 

062702 
020203 
103747 



000064 



oooooo« 

OOOOOOG 
OOOOOOC 

OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOC 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
000000 
OOOOOOG 

OOOOOOG 



i. setting up a job for execution. 



It checks to see if the job requires an extended-memory region for 
virtual overlays, and if so allocates the region and zeroes the 
segment id values in each section of the region. 



KMRVM: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -*<SP) 
R4, -<SP) 
R5, ~(SP) 



DeufcriTtine if this job netds an sxwendeu rRejiiory region 



MFPD @#66 

CMP (SP)+, #1000 

BLO 9* 



; Get pointer to Window Definition Blocks 

; Any windows for jobT' 

i Br if not -- IMo XM region needed 



Create an extended memory region using the information in the 
Region Definition Block in the job. 



i-iFFD 

MOV 

MOV 

ADD 

MFPD 

MOV 

BEQ 

CLR 

. CRRG 

BCS 



, Ge I pointer to job'i> overlay tabl( 
i Point to region definition block 



v&#64 

(SP)+, Rl 

Rl, R2 

#VO*RDB. R2 

R.GSI2(R2) i Get # 64-byte blocks to allocate for region 

<SP.>+.. RUNRDB+R. GSIZ 

9* i Br if no space needed for XM region 

RUNRDB+R. GSTS ; Clear Region Definition Block status flags 

ttCSIARE. #RUWRDB ; Create the XM region 

10* ; Br if error while creating the region 



Zero the ID numbers in each section of the region. 

This is done to indicate that the code for the section needs to be 

read into the region from disk. 



1*: 



MFPD 

MOV 

MFPD 

MOV 

MOV 

MOV 

MOV 

MTPD 

MOV 

MFPD 

ADD 

DISABL 

MOV 

MOV 

CLR 

MOV 

ENABL 

ADD 

CMP 

BLO 



> Get pointer to first Window Definition Block 
j Get pointer past end of last WDB 



VOfWDB ( R 1 ) 

(SP)+. R£ 

VO*WDE ( R 1 ) 

<SP)+, R3 

RUNRDB+R. GID, R4 i Get address of system Region Control Block 

RC*BAS<R4) / RO ; Get base 64-byte page number of region base 

R4, -(SP) i Store pointer to Region Control Block in WDB 

W. NRID(R2) 

RO* R5 

W. N0FF(R2) 

<SP)+,R5 



@#KPARO.. -<SP) 

R5, @#KPARO 

@#0 

( SP ) +, @#KPARO 

#W. SIZE, R2 

R2, R3 

1* 



Get base page number of region 
Get offset of window within region 
Get base page # of window 
DISABLE 

Save mapping for kernel page O 
Map kernel page to window section 
Zero section ID number 
Restore system par mapping 
ENABLE 

iPoint to next window definition block 
i Have we done all windows? 
j Loop if more windows to do 






i 
I 
I 
I 
f 
I 

« 
I 
I 
( 
I 
I 
i 
c 

c 



i 
i 



c 
« 

i 
t 
« 
( 
I 
I 
t 
c 

t 

t 

t 
I 
c 



TSEM4 


TSX-Plus EMT 0^ 


fer'. 


Lay 


KMRUN - 


-- Start 


execution 


of a 


58 










59 










60 


001336 


012605 






61 


O01340 


012604 






62 


001342 


012603 






63 


001344 


012602 






64 


001346 


012601 






65 


001350 


000207 






66 










67 










6a 










69 


001352 


012700 


177754 


70 


001356 


000137 


OOOOOOG 



MACRO V05. 05 


Wednesday 


18-Jan-S 


SAV file 






.= Fi 


nished 




> 

9*: 


MOV 


<SP)+, R5 




MOV 


( SP ) +, R4 




MOV 


(SP)+, R3 




MOV 


<SP)+>R2 




MOV 


(SP)+, Rl 




RETURN 





Page 6-1 



I 
I 
f 



Error 



Unable to create XM region for job 



10$: 



MOV 

JMP 



#-24, RO 

SETERR 



; Return error code 



i 

i 



TSEM4 TSX-Plus EMT Overlay 
Misc. Kmon EMTs 



3 
4 
5 
6 
7 
8 
9 
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SPOLGO <1) Initiate operation of a spooler. 

Argument word 2 contains the address of the SDCB for the spooled device 

being initiated. 



11 



001362 
001366 
001370 
001374 
001402 



105737 
001405 



OOOOOOG 



000004G 



000137 OOOOOOG 



KMSPLG: TSTB 
13EQ 

riUv 
OCALL 
9*: JMP 



NSPLDV 

9* 

EMTBLKH-4, f?0 

O » V-' L_ \af w 

EMTXIT 



; Are there any spooled devices? 

iBR IF NOT 

; GET ADDRESS OF SDCB 

i START THE SPOOLER 

i FINISHED 



i 
f 
f 









I 
c 

i 
( 
I 
i 



I 
I 
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3 








4 








5 








6 








7 








8 








9 


001406 


013702 


0000040 


10 


001412 


013703 


0000060 


11 


001416 


013704 


0000 lOG 


12 








13 








14 








15 


001422 


006203 




16 


001424 


012246 




17 


001426 


106624 




IS 


001430 


077303 




19 








20 








21 








22 


0014:J2 


00013/ 


OOOOOOW 



Get data from within the system. 
Argument words in EMT block: 



Word 2 
Word 3 
Word 4 



KMSFEK: MOV 
MOV 
MOV 



Address of start of data within the kernel. 

Number of bytes of data to transfer. 

Address of buffer within TSKMON where data is to be placed. 



EMTBLK+4, R2 
EMTBLK+6, R3 
EMTBLK+10, R4 



Get address of data wanted 

Get # bytes to transfer 

Get address of buffer in TSKMON 



nove data from kernel to i SKMOiM buffer 



1$: 



ASR 


R3 


MOV 


(R2)+, -(SP) 


MTPD 


(R4) + 


SOB 


R3, 1* 


F i TT i s h e d 




JMP 


eMTx:n 



Get # words to transfer 

Get a word of data onto the stack 

Store into TKMON buffer 

Loop till all words moved 



; (-inisheO 



TSEM4 TSX-Plus 
Misc. KiJion EMTs 



EMT Overlay 
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000004G 
000006G 
0000 100 



1 

c£. 

3 
4 
5 
6 

7 
8 
9 001436 013702 

10 001442 013703 

11 001446 013704 
12 

13 
14 

15 001452 006203 

16 001454 106524 

17 001456 012622 

18 001460 077303 
19 

20 
21 
22 001462 000137 OOOOOOG 



Argument words in EMT block: 
Word 2: Address of start of data mithin the kernel. 
Word 3: Number of bytes of data to transfer. 
Word 4: Address of buffer uiithin TSKMON where data is to be fetched. 



KMSPOK: MOV 
MOV 
MOV 



EMTBLK+4, R2 
EMTBLK+6, R3 
EMTBLK+10. R4 



; Set address of data destination 

; Get # bytes to transfer 

iOet address of buffer in TSKMON 



iiA .^ J .- X. ._ J^ ._ ■T'/^i./ 1.j1«-*\U I l_ . . /• f- ... .L. .- li » .» wi » 1 



1*: 



ASR 


R3 


MFPD 


<R4) + 


MOV 


<3P)+, (R2) + 


SOB 


R3. 1« 


F i n .i s h e d 




JhP 


EMTxrr 



Get # words to transfer 

Get a word of data from TSKMON buffer 

Store into kernel space 
Loop till all words moved 



i I- mi srteo 



f 



t 
t 



I 



i 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



Duspena or resume execucion or a job. 



001466 013701 000004G 

001472 001420 

001474 032761 0000000 0000000 

001502 001414 

001504 105737 OOOOOOG 

001510 001004 



OOlolci 052761 OOOOOOG OOOOOOG 
001520 000405 



KMSPRS: MOV 
BEG 
BIT 
BEQ 
TSTB 
BNE 



EMTBm+43Rl i Get # of job to suspend or resume 

9* ; Zero is invalid 

#*DILUP, LSW(Rl) ;Is job logged on? 

9* ; Br if not 

EMTBLK ; Suspend or resume the job? 

1* ;Br if resume 



Suspend execution of tht^ job 

BIS #*SUSPN> LSW<R 1 ) > Set suspend-execution flag for job 
BR 9* 

Resume execution of the? job 



001522 042761 OOOOOOG OOOOOOG 1*: BIG 
001530 004737 OOOOOOG CALL 



23 001534 000137 OOOOOOG 



Finished 
9« : sJMP 



#*SUSPN. LSW(Rl) ; Clear suspend-job flag 
FORCEX i Force job to run 



EMTXIT 



i 
i 
ff 

C 
I 
( 
( 
« 
f 
i 
f 
i 

4 

i 

( 
{ 



i 

c 
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Cross connect a TT lint? t-D a CL unit. 



3 

4 

5 001 

6 

7 

8 

9 001 

J.\J WW A 
11 

12 
13 
J, 4 uw I 

15 001 

16 001 

17 001 

18 001 
19 

20 



540 



540 

546 



550 

556 
560 
564 
570 



; Word 3 of EMT argument blocfc contains CL unit number. 
CLXCON: 

Treat this as a NOP if this is a detached job 



032761 
001050 



0000000 0000000 



BIT #*DETCH>LSW(R1) ;l5 this a detached job? 

BNE 9* 



f ij t A ' y "^ ■' 



Ensure that pendinp terminal output is flushed 



00140b 
012700 
004737 
000767 



OOOOOOG OOOOOOG 2*: 

OOOOOOG 
OOOOOOG 



C^F 


LQTSPC<R1 


BEQ 


3* 


MOV 


#S*CPU, RO 


CALL 


ENQTL 


BR 


2* 



■>-rr^ T •? / 



Rl) 



Any output still pending 7" 



00 I37e 01 3 > 05 000004G 



3* 



Get Desired CL unit 

MOV EMTBLK+4, Ht> 



Go ahead if not 

Get out of everybody's way while waiting 
Give somebody else a chance while waiting 
And check again 



; Get desired CL unit index number 



23 
24 
25 

26 001 

27 001 

28 001 

29 001 
30 

31 
32 

33 001 

34 001 
35 

36 
37 

38 001 

39 001 
40 

41 
42 

43 001 

44 001 

45 001 

46 001 

47 001 
48 

49 
50 
51 001 



576 
602 
606 
614 



622 
626 



634 
642 



650 
654 
656 
662 
666 



016104 
010465 
042765 
052765 



010564 
012764 



OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



052765 OOOOOOG OOOOOOG 



005764 
002405 
012700 
004737 
000770 



OOOOOOG 

OOOOOOG 
OOOOOOG 



670 000137 OOOOOOG 



Say CL unit connected to Tl line 

MOV LNPRIM(R1 ),R4 ; Get primary line # 

MOV R4, CL*XLN<R5) iSet # of TT line connected to CL 

BIC #-^C<CM«BRK>, CL$STA(R5) ilnit status flags for CL unit 

BIS #CM*ON, CL«STA<R5) ; And say line is in use 

Connect TT unit to CL line 

MOV R5, LXCL<R4) ; Connect CL unit to our line 

MOV #CLXICP, LINIR<R4)i Set addr of input char processing routine 

Raise DTR on CL unit 

BIS #CO$DTR> CL*0PT<R5) ; Request DTR up 

OCALL SETDTR ;Call CL routine to raise DTR 

Suspend execution of job until cross connection is broken 

(Are we still cross connected? 

; Br if not 

i Get sleep state 

i Suspend execution of job 

; See if connection has been broken 

F i T ■( i shed 

9$: JMP EMTXIT 



1$: 



TST 


LXCL<R4) 


BLT 


9* 


MOV 


#S*SPND, RO 


CALL 


QNSPND 


BR 


1* 



i 
i 
f 



4 
i 

i 
f 

I 

t 
< 

i 

i 

i 

c 

4 

i 

I 
I 



( 
I 
c 

I 
i 
I 
I 

i 
€ 

i 
c 
« 

i 

i 

\ i 
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Start a terminal line 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



001674 
001700 
001706 
001710 
001716 
001720 
001724 
001730 
001732 
001740 
001746 



013701 
032761 
001017 
032761 
001404 
012700 
004737 
005000 

042761 

i^ r\ /^ 4 /•^•"Jf 



0000040 
OOOOOOG 



STTTLN: 



OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



1*: 



OOOOOOG 

r\ r\f^ .r\ y^ /n yv 

UUUUUUte 



>■> J^ J~k jr\J^J-\J^ 



MOV 

BIT 

BNE 

BIT 

BE<3 

MOV 

CALL 

CLR 

OCALL 

BIC 

JMP 



EMTBLK+4.R1 ; 

#*DILUP, LSW<R1) ; 

9* i 
#*AUTO, ILSWS(Rl); 

1* ■ 

#39600, RO i 
SETSPD 
RO 
INITLN 



Get index # of line to be 

Is line already startedT' 

Br if yes 

Is line set to autobaud? 
.: Br if not 

; Set speed to 9600 baod 
; Set the line speed 
; No secondary start— up 
/Initialize the line 



started 



command file 



#*RBRK> Lt>W10(H"l > > Clear 
EMTXiT 



break— received flag 



I 

c 

i 



c 
t 

i 

€ 

C 

( 

( 



i 
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F u r t: e logoff of a job. 



4 001752 

5 001756 

6 001762 

7 001764 
S 001766 
9 001772 

< n r\r\ i -7-7 z^ 

11 002000 

12 

13 

14 

15 

16 

17 

18 

19 002004 

20 002006 

21 002010 

23 
24 

25 002012 

26 002020 
27 

28 
29 

30 002022 

31 002026 

32 002032 

33 002034 

34 002040 

35 002042 
36 

37 
38 
39 

40 002050 

41 002054 

42 002062 

43 002070 

44 002076 
45 

46 

47 

48 002104 

49 

50 

51 

52 002110 

54 
55 

56 002114 

57 002116 



013702 
004737 
103405 
010200 
004737 
000137 



000004G 

006650' 



002004 ' 
OOOOOOG 



000137 OOOOOOG 



KILEMT: MOV 
CALL 
DCS 
MOV 
CALL 
JMP 

10*; CLR 
JMP 



EMTBLK+4, R2 

CKACJ13 

10* 

R2, RO 

KILJOB 

cri I A i I 

RO 

SETERR 



; GET # OF JOB TO KILL 

j See if we have privilege to kill that job 

i Br if don't have privilege 

; Get # of job to kill 

i KILL THE JOB 

i FINISHED 

; Return error code 



ouofuutine t;o ■ k i j, i • iruft-t; iuQutr i ur a jOO. 
Inputs: 



RO 



Virtual job index riuinber of job to kill. 



010146 
010546 
010001 



032761 
001435 



016105 
020527 
101006 
016505 
002403 



KILJOB: MOV 

MOV 
MUV 



Rl, -<SP) 
R5, -<SP) 
RO, Rl 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV 


LNPRIM(R1 )> R5 


CMP 


R5, #LSTPL 


BHI 


1* 


MOV 


LXCL<R5),R5 


BLT 


1* 


OCALL 


CLXBRK 



016100 
042760 
042761 
042761 

052761 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



004777 OOOOOOG 



004737 OOOOOOG 



012605 
012601 



i Get virtual job index number 

See if job is currently loptjed on 

BIT ttfDILUP.. LSW<R1 .> ; IS JOB LOGGtO UN NUWV 
BEQ 9* i BR IF NOT 

If this line is cross connected with a CL line, break the connection. 

Get primary line number 

Is this a primary line <not detached)? 

Br if detached job 

Is line cross connected to a CL unit? 

Br if not 

Break the connection 

Clear ctrl-S output suspension and ctrl-O output suppression and 
set flag saying job is being killed. 

1$; MOV LNPRIM(Rl), RO ; GET PRIMARY LINE NUMBER 

OOOOOOG BIC #*CTRLS,LSW3(R0); RESET CTRL-S OUTPUT SUSPENSION 

OOOOOOG BIC #*CTRLO, LSW3<R1); RESET CTRL~0 OUTPUT SUSPENSION 

OOOOOOG BIC #*SUSPN, LSW<R1) ; Clear job-suspended flag 

OOOOOOG BIS #*DISCN, LSW<R1) ; FORCE LOGOFF 

Start output transmission for job 

CALL ©TRNSTR ; Start output transmission 

Force job to execute 

CALL FORCEX i FORCE ITS EXECUTION 

F* i n i B h e d 



9*: 



MOV 
MOV 



(SP)+, R5 
(SP)4-, Rl 



( 
I 
I 

i 

i 

i 

i 

4 

I 

f 

i 



i 
i 
i 



i 
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4 002122 

5 002126 

6 002130 

7 002134 



005737 
001402 
004777 
000137 



OOOOOOG 

OOOOOOG 
OOOOOOG 



CSHNEW: TST 
BEQ 
CALL 

1*: JMP 



CSHALC 
1* 

eCSHINI 
EMTXIT 



;Ib data caching genned into system? 

iBr if not 

iClean out the data cache 



4 

i 
I 

I 
i 
i 
I 

( 
t 

< 

€ 

4 
( 
C 
i 



f 
I 
i 
i 
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3 

4 

5 

6 

7 

8 002140 

9 
10 
11 

12 002140 

13 002144 
14 

15 
16 

17 002146 

18 002152 

19 002160 

20 002162 
21 
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23 

24 002166 

25 002172 



105737 0000000 

001410 



013703 000004G 

103402 

000137 0000000 



012700 000001 
000137 OOOOOOG 



u^iexe a spool file. 
Form of the EMT: 

. BYTE O, 126 
WORD 7 
WORD f ile„id„numbpr 

KMSPDL: 

See if spooling support i e included in this system 



TSTB 

BEQ 



NSPLDV 
1* 



i Are there any spooled devices? 
> B r if nob 



Oet the file id number and delete the file 



MOV 


EMTBLK+4> R3 


OCALL 


SPLDEI.,, 


BCS 


1* 


JMP 


EMTXIT 



iOet spool file ID number 

jTry to delete the file 

i Br if could not find the file 



Specified file could not he found 



1*: 



MOV 
JMP 



#EC1, RO 
SETERR 



c 
I 

f 



f 
I 

I 
i 
t 

< 

4 
I 

I 



I 
i 
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t 
I 

c 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

•I 'n 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002176 



00220c 



002212 



002232 
002240 
002242 
002246 



002256 
002260 
002262 
002266 
002272 
002276 
002302 
002304 
002306 
002310 
002312 



002314 
002320 
002322 
002330 
002334 



002340 
002344 
002350 

002352 



001014 
032761 
001010 
032761 
001004 
032761 
001404 

oiyyou 

000137 



11 3705 
001570 
003015 
012705 
016103 
016303 
020527 
101050 
105723 
001423 
005205 
000771 



j-\ »-i y^ e: iT^ "T 

Oe;Oi?2/ 

101407 
012737 
012700 
000137 



016102 
016203 
060503 
105743 






r* I'l I t. ij \^\jj A. \,\. ti u v:\i\uK &it » u D u I w u H » 5 e !s 



OOOOOOG 

OOOOOOG 0000000 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOl 
OOOOOOG 

000002G 



000001 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 

000002 

OOOOOOG 



The form of the EMT used to switch between subprocesBes is 

. BYTE sub„f uncti on* 162 

.BYTE subp roces5_ number* 

. BYTE return^ process* ini t iate__only 

. WORD pointer__to__start„up_f i le_5tr ing 

Where 5ubprocsss__numbBr is the relative subprocess number for the 
job <0=primary process). 

vi_oEn t ; v»i_R URO » rseturn w in RO if error 

See if job is authorized to use subprocesses 

BIT #tNOVLN* LSW2<R1 )i Is job allowed to use subprocesses? 

BNE 1* ; Br if not 

BIT #*BETCH* LSW<R1) ils this a detached job? 

BNE 1* i Br if detached 

BIT #<$SUCF!«LOFCF>* LSW9<R1 ) i Doing logon/logoff processing? 

BNE 1* > Br if get* 

BIT #«NOIN* LSW3<R1) ; Doing logon/logoff processing? 

BEG 2* i Br if not 

IS: MOV #£C1*F?0 j Error 1 if not allowed to use subprocesses 

JMP SETERR 

See if he specified a process number or wants us to find a free one 

?*: MOVB EMTBLK+2* R5 .: Get specified subprocess number 

Br if switching to primary process 

Br if subprocess number specified 

Start with subprocess # 1 

Get primary line # 

Point to table of secondary line numbers 
13*: CMP R5* #MAXSEC ; Are there more subprocesses available to job? 

Br if not 

Is this subprocess free?" 

Br if free 

Advance subprocess number 

Continue searching for a free subprocess 

See if the specified process number is valid 
12*: CMP 



MOVB 


EMTBLK+2* R5 


BEQ 


4* 


BOT 


12* 


MOV 


#1,R5 


MOV 


LNPRIM(R1>*R3 


MOV 


LSECPT<R3>*R3 


CMP 


R5* #MAXSEC 


BHI 


6* 


TSTB 


(R3) + 


BEQ 


15* 


INC 


R5 


BR 


13* 



R5* #MAXSEC 
BLDS 3* 
MOV #MAXSEC.. URO 
MOV #EC2, RO 
JMP SETERR 



ils subprocess number too large 7' 

i Br if ok 

.: Return MAXSEC to user in RO 

j Error 2 — Subprocess number too big 



i Sw itching to a subproce&E. 

* See if subprocess has been allocated yet. 



OOOOOOG 
OOOOOOG 



3*: 



MOV 


LNPRIM<R1)>R2 


MOV 


LSECPT<R2),R3 


ADD 


R5, R3 


TSTB 


-(R3) 



Get primary line # 

Point to table of secondary line numbers 
Point to entry for selected process 
Has this subprocess been allocated yet? 



I 
I 



i 

i 



i 

f 



4 

i 



( 
I 

f 



► . 



c 
r 
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60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

113 
114 



002356 
002364 
002366 
002372 



002376 
002402 
002406 
002410 
002414 
002416 
002422 



002424 
002430 



123727 
001004 
012700 
000137 



012703 

101006 
005763 
001407 

062703 
000767 



01 2700 
000137 



OOOOOOG 
0000000 

OOOOOOG 

000002 



000003 
OOOOOOG 



002434 
002440 
002442 



013700 0000060 

001402 

004737 OOOOOOG 



002446 
002450 
002452 
002456 



010146 

010346 

004737 0000000 

105061 OOOOOOG 



002462 
uOcitoo 
002470 
002472 
002476 
002502 
002506 
002510 
002512 



002514 
002516 



013703 
001412 
010104 
062704 
012702 
004737 
1 1 0024 
077204 
105014 



010100 
012603 



000006G 



OOOOOOG 
177777G 
OOOOOOG 



'^^ 



11 T* IT* II P *-i 



Request to switch to a subprocess which has not been allocated yet. 



OOOOOOG 000002 15*: 

000006 
OOOOOOG 



CMPB 


EMTBLK> #2 


BIME 


IS* 


MOV 


#EC6. RO 


JMP 


SETERR 



; Is it ok to start a new subprocess? 

i Br if yes 

I Error 6 — Subprocess not active 



See if we can find a ^tbih subprocess. 



IS*: MOV #FSTSL, R3 

v^*. unr K jj #i_b I oi... 

3HI 6* 

TST LNPRIM<R3) 

BEG 7* 

ADD #2, R3 

BR 5* 



iGet job # of first subprocess 

, Checked all? 

i Br if yes 

; Is this line available?* 

; Br if yes 

iGet index to next subprocess 

/Continue search 



There are no free subprocesses 



o*; 



MOV 
JMP 



#£C3, RO 
SETERR 



j Error 3 — No free subprocesses 



7*: 



MOV 


EMTBLK+6. RO 


BEQ 


17* 


CALL 


VALADB 



MOV 


R 1 , - ( SP ) 


MOV 


R3, ~(SP> 


CALL 


GETQ 


CLRB 


IB*SF2<R1) 



We have found a free subprocpss. 

Its index is in R3. 

Validate address of "ointer to secondary start— up command file name string. 

; Get virtual address of name string 
J Br if no start-up file specified 
.: Validate the address 

Allocate an I/O queue element to use to pass information to the 
job initiator. 

17*: MOV R1,-(SP) i Save our job index number 

iGet a free I/O queue element <Rl=addrB65) 
i Assume no secondary start-up command file 

See if we need to set up a secondary start-up command file for the 
process that is being initiated. 

Is there a start-up command file string? 
OT if no secondary start-up command file 
Point to buffer where name will be stored 
Point to cell in buffer for name 
Get # chars reserved for file name 
11*: CALL GETUCH iGet char from user's buffer 

Store into buffer 
Loop till all of name moved 
Make sure there is a null at the end 

Complete initialization of buffer passing info to job initiator 



MOV 


EMTBLK+6, R3 


BEQ 


16* 


MOV 


R1,R4 


ADD 


#IB*SF2. R4 


MOV 


#SF2LEN-1. RP 


CALL 


GETUCH 


MOVE 


RO, (R4.) + 


SOB 


R2, 11* 


CLRB 


(R4) 



I 
I 
< 

i 

i 
I 

f 

( 

I 
I 

I 
< 

I 

I 

( 



16*: 



MOV 
MOV 



Rl, RO 

(SP)+, R3 



i Save pointer to initiation info buffer 



4 

t 



« 

I 

« 

l' 

I 
I 

' € 

i 

4 
I 

( 

r 

t 



TSEM4 


TSX-Plu 


5 EMT Ov 


erlay 


VLSEMT - 


— EMT t 


o switch 


betujeen 


i15 


002520 


012601 




116 


002522 


105737 


0000040 


117 


002526 


001402 




lis 


002530 


110160 


0000000 


119 








120 








121 








122 








123 


002534 


010146 




124 


002536 


010301 




125 


002540 






126 


002546 


103004 




127 


002550 


012700 


000004 


128 


002554 


000137 


0000000 


129 


002560 


052761 


OOOOOOG 


130 


002566 


105737 


0000050 


131 


002572 


001406 




132 


002574 


052761 


OOOOOOG 


133 


002602 






134 


002610 


012601 




135 








136 








137 








138 


002612 


016102 


OOOOOOG 


139 


002616 


010263 


OOOOOOG 


140 


002622 


016204 


OOOOOOG 


141 


002626 


060504 




142 


002630 


1 1 0344 




143 


002632 


010263 


OOOOOOG 


144 


002636 


000410 




145 








146 








147 








148 


002640 


123727 


OOOOOOG 


149 


002646 


001004 




150 


002650 


012700 


000005 


151 


002654 


000137 


OOOOOOG 


152 








153 








154 








155 


002660 


105737 


000005G 


156 


002664 


001006 




157 


002666 






158 








159 








160 








161 


002674 


052761 


OOOOOOG 


162 








163 








164 








165 


002702 


010537 


OOOOOOG 


166 








167 








168 








169 


002706 


000137 


OOOOOOG 
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MOV <SP)+. Rl 

I ij 1 » cn i i3i_f\T— t 

BEQ 10* 

MOVE Rl, IB*IJ<RO) 



; Get back current process inde;( 

jr^cwurn vO our procc^s» or pri fuar y process: 

; Br if return to primary process 

; Set our process # as initiating job 



At this point, RO=Pointer to buffer with initialization info <IB*xxx). 
Initialize the subprocesB. 



10*: 



OOOOOOG 8*: 



OOOOOOG 



20*: 



MOV 
MOV 
OCALL 
BCC 

JMP 

BIS 

TSTB 

BEQ 

BIS 

OCALL 

MOV 



; Save original process number 
; Get new process number 
i Initialize the new process 
; Br if initialization ok 



jr 4 



Insufficient memory for process 



R 1 , - ( SP ) 

R3, Rl 

INITLN 

8* 

#EC4, RO 

SETERR 

#*VBELL, LSW9<R1 ) ; Don 't ring bell when new subprocess waits 

EMTBLK+5 i Are we going to switch terminal control? 

20* i Br if yes 

#*VNOTT, LSW<Ri ) i Say subprocess not connected to terminal 

SPPRED ; Reduce execution priority of initiated proc 

(SP)+,R1 ;Get back original process number 



VtB^e association between subprocess and primary process 



MOV LNPRIM<Hi),R2 

MOV R2, LPARNT(R3) 

MOV LSECPT(R2),R4 

ADD R5, R4 

MOVE R3, -(R4) 

MOV R2, LNPRIM<R3) 

BR 19* 



i Get primary process number 

j Say primary job is parent of subprocess 

i Point to subprocess # table 

; Point to desired entry 

; Associate subprocess with primary 

; Set primary process for subprocess 



000001 4*: 



We are switching to a process that has been initialized. 

i Can we use an existing process? 

i Br if yes 

i Error 5 — F*rocess already exists 



CMPB 


EMTBLK, #1 


BNE 


19* 


MOV 


#EC5. RO 


JMP 


SETERR 



Switch terminal connection to the selected process. 



19*: 



TSTB 


EMTBLK+5 


BNE 


9* 


OCALL 


LINSWT 



; Initiate subprocess only7' 

i Br if yes — Don't switch terminal control 

; Set up line number prompt 



OOOOOOG 



Set flag to suppress bell ringing when this line goes into wait state 

BIS #*VBELL, LSW9<R1 ).: Say not to ring bell when we wait 
Return subprocess number to calling program in RO 
9*: MOV R5, URO ; Return subprocess # in RO 

: P' i TT'i i r^ h d H 



JMP 



EMTXIT 



i Finished with EMT 



c 
f 
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I 
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3 
4 
5 
6 
7 
8 



10 
11 
12 
13 
It 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

28 
29 
30 
31 

32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

>% IT? 

HZ/ 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



00271; 



00c:/ J. a: 
002716 
002722 
002724 
002726 
002732 
002734 



002740 

002746 
002750 



002756 
002762 
002766 
002770 
002776 
003000 
003004 



003006 
003012 
003014 
003020 
003024 

003034 
003036 
003040 
003042 

003044 
003046 
003054 

003056 

003064 



1 1 3700 
020027 
103003 
006300 
000170 
005000 
000137 



032737 
00 1 00 "J 
005000 
000137 



012701 
020127 
101043 
032761 
001403 
062701 
000766 



013703 
010300 
004737 
016102 
012705 

110022 

00 1 402 
077 505 
105012 

005000 

103410 

006201 



MACRO V05. 05 Wednesday 18-Jan~S9 12:10 Page 17 



. 3ETTL uetached job control ernt's 



; Thi 

i The 

; by t 

i 0= 

J 1== 

DETEMT: 



5 Bet of emt's is used to control detached jobs. 

emt function cnde is 132. The sub-function code is stored in 
e O of the argument block. The valid sub-function codes are: 
->Start a detached job. 

>Checi< status of a detached job. 

■'•Kill a detached job. 



Jump to processing routine based on sub-function code. 



OOOOOOG 
000003 



2$: 



OOOOOOG 



iiOVB EMTSLKj RO 

CMP RO, #DETH.T 

BHIS 2* 

ASL RO 

JMP @DETVEC<RO) 

CLR RO 

JMP SETERR 



GET SUB-FUNCTION CODE 

IS SUB-FUNCTION VALIDT' 

BR IF NOT 

CONVERT TO WORD TABLE INDEX 

ENTER PROCESSING ROUTINE 

Return error code 



Start a netu detached joh 



OOOOOOG OOOOOOG DETGO: 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

000002 

000002G 

OOOOOOG 
OOOOOOG 
OOOOOOG 



BIT #PO*DET> PRIVCO 

BNE 10$ 

CLR RO 

JMP SETERR 



i Is this user allouied to access detached jobs? 

.; Br i f yes 

; Return error code O if not 



Search for a free detacht?d job line. 



OOOOOOG OOOOOOG 



10*: MOV 
3*: CMP 

BHI 

BIT 

BEQ 

ADD 

BR 
i Found a free 
j Set name of 
2$: MOV 

MOV 

CALL 

MOV 

MOV 
4*: CALL 

MOVE 

BEQ 

SOB 

CLRB 
■> Start up the 
6*: CLR 

OCALL 

BCS 
i Set number o 

MOVB 
; Return detac 

ASR 



#FSTDL, Rl 

R 1 , #LSTDL 

DETONE 

#*DILUP, LSW<R1) 

2* 

#2, Rl 

3* 

detached job lin 
start-up command 

EMTBLK+2, R3 

R3, RO 

VALADB 

LSUCF<R1), R2 

#DETCBS, R5 

GETUCH 

RO, (R2) + 

6* 

R5, 4* 

(R2) 

1 ine. 

RO 

INITLN 

DETONE 
f parent job 

CORUSR, LPARNT<R1 
hed job line numb 

Rl 



GET # OF FIRST DETACHED JOB LINE 

HAVE WE CHECKED ALL? 

BR IF YES — NONE FREE 

IS THIS LINE FREE? 

BR IF YES 

GO TRY NEXT 



e. 

file. 

i GET ADDRESS OF START-UP 

i VALIDATE THE ADDRESS 



FILE NAME ARGUMENT 



GET ADDRESS WHERE WE SHOULD STORE NAME 

GET COUNT OF MAX # CHARS TO MOVE 

SET CHAR FROM USER 'S BUFFER 

STORE AS START-UP FILE NAME FOR LINE 

BR IF MOVED NULL AT END OF NAME 

LOOP TO MOVE REST OF NAME 

PUr NULL AT END OF NAME 



No secondary start-up command file 

INITIALIZE THE LINE 

BR IF INSUFFICIENT MEMORY TO START 

);SBt # of parent job 

er to user in RO. 

; CONVERT TO LINE NUMBER 



JOB 



i 
i 
f 

I 

i 

C 
I 
I 



I 

I 

i 

I 

i 



i 

i 
i 



f 
( 
( 
I 

I 

I 

I* 

f 

I 

I 

' t 

i 

I 

« 
I 

( 

f ♦ 

I 

( 
i 
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60 

61 003076 

62 003102 
63 

64 
65 

67 003112 

68 003114 

69 003120 



80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



012700 
000137 



006301 
020127 
101366 



013702 
006302 



0031 50 
003152 
003156 
003 16U 
003166 
003170 
003174 
003200 
003204 
003206 
003212 
003214 
003216 



003226 
003230 
003232 



0000000 



000001 
0000000 






0000000 



\JI it 

; No free detached lob 
DETONE; MOV #EC1,'rO 
DETERR: JMP SETERR 



RETURN IN 



R< 



lines — 



Return error code 1. 



Check status oi^ a detached job. 



DETCHK: 



72 003132 000137 OOOOOOQ 

73 

74 

75 

76 003136 

77 003142 

78 003144 



liDV 
ASL 
CMP 
BHI 

JL> 4. I 

BEG 
JhP 



Em 

Rl 

Rl, #LSTDL. 

DETONE 

jj. .* r\ T 1 i i r 

DETONE 
EMTXIT 



Kii;! a detached job 



103416 
020227 
101010 
032/3/ 
00 1 007 
012700 
000137 
020227 
101334 
004737 
103766 
010200 
004737 
000137 



002740' 
003106' 
003136' 
000003 



0000020 
OOOOOOG 
OOOOOOG 
uuuouoy oououuy 

000002 

OOOOOOG 

OOOOOOG 

006650' 



002004 ' 
OOOOOOG 



DETKIL; MOV 
ASL 
CMP 
BLO 
CMP 
BHI 
B 1 T 
BNE 
MOV 
JMP 
CMP 
BHI 
CALL 
BCS 
MOV 
CALL 
JMP 



4*: 
2$: 
3$: 
1*: 



EMTBLK+2.. R2 

R2 

R2, #LSTPL. 

3* 

R2.. #LSTDL 

2$ 

#PO*DET. PRiVCO 

3* 

#EC2, RO 

SETERR 

R2, #LSTSL 

DETONE 

CKACJB 

4* 

R2, RO 

KILJOB 

EMTXIT 



Detached job jump vector 

DETVEC : . WORD DETGO 

. WORD DETCHK 

. WORD DETKIL 

DETHI = <. -DETVEO/P 



; GE 



LINE NUMBER 



.; CONVERT TO LINE INDEX 

i IS THIS A VALID DETACHED JOB LINE #? 

i BR IF NOT 



<-J I ± L.i- 



NO fcRROK IF bllLL ACTIVE 



GET JOB NUMBER 

CONVERT TO LINE INDEX NUMBER 

PRIMARY LINE? 

IF 30, DON'T CHECK DET PR IV 

VALID DETACHED JOB #? 

IF NOT, DON'T CHECK DET PR IV 

DU Wfe. HAVfc Dt I ACHED PHIV? 

IF WE HAVE PR IV, CONTINUE 

ELSE, SAY NOT PRIVLIGED 

AND ABORT 

VIRTUAL (SECONDARY) LINE? 

BR IF NOT (INVALID LINE #) 

Can u)s access that job? 

If not, report priv error 

Get job index number 

KILL THE JOB 

FINISHED 



" Start a detached job 

1 - Check status of a detached job 

2 ~ Kill a detached job 



i 



4 
I 
( 

i 

i 

f 

f 

i 

f 

< 

I 

< 



i 
i 
I 



f 
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' i 
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( 

f 

€ 



TSEM4 TSX-Plus EMI Overlay 
Shared Run-time control emt's 



3 
4 
5 
6 

7 

e 
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10 
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12 
13 
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MACRO V05. 05 Wednesday i8-Jan--89 IP: 10 Page 18 



15 

16 003234 

17 003240 
le 003244 

19 003246 

20 003252 

21 003254 

2y 

23 
24 

25 003260 

26 003262 

27 003264 

28 003266 

29 003270 

30 003272 

31 003274 
32 

33 
34 



113700 
020027 
103402 
000137 
006300 
000170 



003276 ' 
003450' 
003574 •' 
003774 ' 
004132' 
004172' 
004220 ' 

000007 



OOOOOOG 

000007 

OOOOOOG 
003260 ' 



CJ n "P T i Ci h la T* ta / i P II n "•• T 'i *n o r n n ^ t- n 1 o rn f: ' k. 



All of the shared run-time control emt's have an emt function 
code of 143 The sub-^f unc t i on code is stored in byte of the 
emt argument block. 

Sub-f unctions. • 

==> Associate or disassociate a run~time system. 

1 :==> Map part of a run-time system into job's virtual memory area. 

2 ==> Define shared run-time region for fast mapping. 

3 "=> Disable fast run-time region mapping (restore TRAP instr. ) 

4 ==> Enable I/D space split 

5 -^.> Disable I/D space split <return to ail I-space) 

6 -=> Define PLAS region for fast mapping 



SSEMT: MOVB EMTBLK, RO 

CMP RO, #3SEHi 

BLO 1* 

JMP BADEMT 

1*: ASL RO 

JMP @SSEVEC<RO) 



; Get sub-function code 

i Valid sub-function codeT' 

j Br if OK 

j Invalid sub-function 

j Convert sub-function to word 

; Jump to appropriate routine 



index 



i Defind jump vector table for mapping emts 
SSEVEC: 



SSEHI 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



SSASOC 

SSMAP 

SSREG-N 

SSNOMP 

ESPLIT 

DSPLIT 

SSPLAS 

-SSEVEO/2 



time 
TRAP 



- associate a run-time system 

1 - map to shared run-time system 

2 ~ define fast map to shared run- 

3 ~ disable fast mapping (restore 

4 - enable I/D space split 

5 - restore all I space 

6 - define fast map to PLAS region 



iThis and higher subfunctions are invalid 



use ) 






i 

i 

i 

( 
I 

i 

i 
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I 

c 
< 
( 
I 
I 



3 








4 








5 








6 








7 








S 








9 








10 








11 








12 


003276 


013700 


000002G 


13 


003302 


001026 




14 








15 








16 








17 


003304 


005037 


0000000 


18 


003310 


005002 




19 


003312 


005062 


0000000 


20 


003316 


005062 


0000000 


21 


003322 


062702 


000002 


22 


003326 


020227 


000016 


23 


003332 


101767 




24 


003334 


005737 


0000000 


20 


003340 


OO 1 AOJ 




26 


003342 






27 


003350 


004737 


OOOOOOG 


28 


003354 


000137 


OOOOOOG 


29 








30 








31 








32 


003360 


004737 


OOOOOOG 


33 


003364 


106520 




34 


003366 


012604 




35 


003370 


106520 




36 


003372 


012605 




37 








38 








39 








40 


003374 


012703 


OOOOOOG 


41 


003400 


020327 


OOOOOOG 


42 


003404 


103015 




43 


003406 


020463 


OOOOOOG 


44 


003412 


001003 




45 


003414 


020563 


000002G 


46 


003420 


001403 




47 


003422 


062703 


OOOOOOG 


49 


003426 


000764 




49 








50 








51 








52 








53 


003430 


010337 


OOOOOOG 


54 


003434 


000137 


OOOOOOG 


55 








56 








57 
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job 

- t^JBTTL^ AssQCistf? Bn^r^fl run'^tinie system uiith job 



This emt is used to associate a shared run-time system with a job. 
The form of the emt argument block is: 

. BYTE O, 143 

. WORD name— pointer 

Where name-pointer is the address of a two word cell containing the 
rad50 name of the run-time system to be associated. 



SSASOC : MOV 



EtiTBLK+2. RO 
2* 



i GET ADDRESS OF NAME CELL 

; BR IF WE ARE ASSOCIATING A RUN-TIME 



115; 



7«: 



CLR 


CURRDB 


CLR 


R2 


CLR 


RPAR<R2) 


CLR 


RPDR<R2) 


ADD 


#2, R2 


CMP 


R2, #2*7 


BLOS 


1* 


TST 


VPLAS 


BEQ 


7$ 


OCALL 


MAPPLS 


CALL 


SETMAP 


JMP 


EMTXIT 



?*: 



3*: 



5f : 



Name pointer is zero — Disassociate all run-time systems 

NO ASSOCIATED RUN-TIME 

IN IT PAR INDEX 

CLEAR PAR VALUE 

CLEAR PDR VALUE 

ADVANCE TD NEXT SE"I 

DONE ALL? 

BR IF MORE TO CLEAR 

Do we have PLAS support? 

Br if not 

Set up info about any PLAS regions 

RELOAD MAP REGISTERS FOR vJOB 

FINISHED 

Associate new shared run-time system with job 

; VALIDATE THE ADDRESS 

;GET 1ST WORD OF RUN-TIME NAME 

; GET 2ND WORD OF RUN-TIME NAME 



Search for run-time system descriptor with matching name 

POINT TO 1ST RUN-TIME DESCRIPTOR BLOCK 

CHECKED ALL RUN-TIME DESCRIPTOR BLOCKS? 

BR IF YES 

COMPARE 1ST WORD OF NAME 

BR IF MISMATCH 

COMPARE 2ND WORD OF NAME 

BR IF FOUND RIGHT BLOCK 

POINT TO NEXT RUN-TIME DESCRIPTOR BLOCK 

GO CHECK NEXT ONE 

Found run-time descriptor block 

Associate the run-time system with the job 



CALL 


VALADW 


MFPD 


<R0) + 


MOV 


<SP)+, R4 


MFPD 


(R0> + 


MOV 


(SP)+, R5 



MOV 


#RDB, R3 


CMP 


R3, #RDBEND 


BHIS 


6* 


CMP 


R4, RT*NAM<R3) 


BNE 


5* 


CnF 


R5, RT*NAM+2(R3) 


BEQ 


4$ 


ADD 


#RT$*SZ. R3 


BR 


3* 



4$: 



MOV 
JMP 



R3, CURRDB 
EMTXIT 



; SAY RUN-TIME SYSTEM IS ASSOCIATED WITH JOB 

i FINISHED 



Error — Cannot find named run-time system 

R e t u r f i e r r or cade of .t 
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iJ7 Kiyj^-f^sj Kj sl ti. / \j\-' sj\j\j\j\j i. o*. fiijv wcn^j.*r!U j nc I unN trtrxurs t.ODE i 

60 003444 000137 0000000 JMP SETERR 



t 
I 

4 
I 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 

■I n 


003450 






14 








15 








16 


003450 


004737 


004004 ' 


17 








18 








19 








20 


003454 


010500 




21 


003456 


160400 




22 


003460 


003443 




23 


003462 


010462 


0000000 


24 


003466 


010462 


OOOOOOG 


2;? 


OOJ^/hi 


U1046ct^ 


uuouooy 


26 


003476 


020027 


000200 


27 


003502 


101402 




28 


003504 


012700 


000200 


29 


003510 


060004 




30 


003512 


005300 




31 


003514 


000300 




32 


003516 


052700 


000002 


33 


003522 


132763 


OOOOOOG OOOOOOG 


34 


003530 


001402 




35 


003532 


052700 


000004 


36 


003536 


042700 


100261 


37 


003542 


010062 


OOOOOOG 


38 


003546 


010062 


OOOOOOG 


39 


003552 


010062 


OOOOOOG 


40 


003556 


062702 


000002 


41 


003562 


020227 


000016 


42 


003566 


101732 




43 








44 








45 








46 


003570 


000137 


OOOOOOG 



. i^L> i ii_. nao Siiareu fUii — v-ime system xntc user s virtual address 

This emt is used to map a portion of a shared run-time system into 

the virtual address region of the job. 

The form of the emt is; 



I 
i 



BYTE 


1. 143 






WORD 


user-par 


to 7 




WORD 


run-time-of f set 


64~byte 


units 


WORD 


5 12 5 


64-byte 


units 



;SMAP : 






outiiis tu check argumeMts and diss base address 



CALL 



SSSTUP 



j Do common mapping setup 



Set up mapping information for each par 



3$: 



4*: 



MOV 

SUB 

BLfc 

MOV 

MOV 

MLIV 

CMP 

BLOS 

MOV 

ADD 

DEC 

SWAB 

BIS 

BITB 

BEQ 

BIS 

BIC 

MOV 

MOV 

MOV 

ADD 

CMP 

BLOS 



Finished 
6* : JMP 



5*: 



R5, RO 

R4. RO 

6* 

R4. RPARa?2.> 

R4, CUPAR0(R2) 

R4.. UPAR0<R2.> 

RO, #200 

4* 

#200. RO 

RO, R4 

RO 

RO 

#2, RO 

#RF*WRT, RT*FLG 

5« 

#4, RO 

#100261, RO 

RO, RPDR<R2) 

RO, CUPDR0<R2.> 

RO, UPDR0(R2) 

#2, R2 

R2, #2-K'7 

3* 



EMTXIT 



CALCULATE # 64-BYTE BLOCKS 

LEFT TO ALLOCATE 
BR IF FINISHED 
SET PAR BASE OFFSET VALUE 
SAVE INFORMATION IN JOB CONTEXT BLOCK 
SE! HARDWARE REGIS lER 

EACH PAR CAN MAP KJP TO 200 64-BYTE BLOCKS 
BR IF WE CAN MAP ALL THAT'S LEFT 
ONLY MAP 200 THROUGH THIS PAR 
ADVANCE BASE OFFSET NUMBER 
PDR VALUE IS ACTUAL-1 
POSITION LENGTH FOR PDR REGISTER 
SET READ-ALLOWED FLAG FOR PDR 
(R3)i IS WRITE ACCESS TO BE ALLOWED? 
BR IF NOT 

SET WRITE-ALLOWED FLAG FOR PDR 
MAKE SURE UNUSED PDR BITS ARE ZERO 
THIS IS PDR VALUE FOR PAR RANGE 
SAVE INFORMATION IN JOB CONTEXT BLOCK 
SET HARDWARE MAPPING 
ADVANCE PAR INDEX # 
ONLY DO PAR UP TO # 7 
BR IF MORE TO DO 



i FINISHED 



i 
( 
( 
f 
I 
I 



f 
f 

I* 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


003574 






14 








15 








16 








17 


003574 


004737 


004004 * 


IS 








19 








20 








21 








22 








23 








24 








25 








26 








27 


003600 


160405 




28 


003602 


013700 


0000 100 


29 


003606 


020027 


OOOOOOG 


30 


003612 


103404 




31 


003614 


1 2700 


000002 


32 


003620 


000137 


OOOOOOG 


33 








34 








35 








36 


003624 


1 1 0260 


OOOOOOG 


37 


003630 


105060 


OOOOOOG 


38 








39 








40 








41 


003634 


006300 




42 


003636 


005060 


OOOOOOG 


43 


003642 


010460 


OOOOOOG 


44 








45 








46 








47 


003646 


010501 




48 


003650 


020127 


000200 


49 


003654 


.1.01402 




50 


003656 


012701 


000200 


51 


003662 


16010'J 




52 


003664 


060104 




53 


003666 


005301 




54 


003670 


000301 




55 


003672 


132763 


OOOOOOG OOOOOOG 


56 


003700 


001402 




57 


003702 


052701 


000004 



. SBTTL Define a run-time region for fast mapping 

DePine a run-time region so that it can be quickly mapped using 
the TRAP instruction. 



EMI argument list: 
. BYTE 2, 143 
. WORD 

. WORD 



user-par ; PAR to map to region (O to 7) 
run-time-off set .: Of f set within run-time <64-byte units) 

reg ion -index 



.: # 64"byte units to map 
; to MAXSRD~1 



SSREGN: 

Call routine to check arguments and bias base address 

CALL 3SSTUP > Do common mapping setup 

At this point the following registers are set up: 
R2 = PAR index number (2 * PAR). 

R3 = Pointer to current run-time descriptor block. 
h4 = Starting 64— byte physical address of region. 
R5 = Ending 64-bute physical address of region. 

Make sure the reg ion indt x value is valid. 



1*: 



SUB R4, R5 

MOV EMTBLK+10, RO 

CMP RO, #MAXSRD 

BLO 11$ 

MOV #EC2, RO 

JMP SETERR 



R5 nou) has # blocks to be mapped 

Get specified region # 

Is the number valid? 

Br if ok 

Return error code P 



Remember which PAR is set by this region 



11*: MOVB R2.. SR*PX<RO) 
CLRB SR*FLG<RO) 



i Save PAR index <2*PAR #) 

; No special mapping flags yet 



Set the PAR value in the region descriptor 



ASL 
CLR 
MOV 



RO 

SR*WCB<RO) 
R4. SR*PAR(RO) 



Get word table index 

This is a shared run-time region (not PLAS) 

Set base PAR value for region 



,L, A, L 



ae t vne run vaiue ror cne region 



?*: 



MOV 


R5,R1 


CMP 


R 1 , #200 


BLOS 


2* 


MOV 


#200, Rl 


SUB 


Rl, R5 


ADD 


Rl, R4 


DEC 


Rl 


SWAB 


Rl 


BITB 


#RF*WRT 


BEQ 


3* 


B 1 S 


#4, Rl 



Get # blocks remaining to map 
Will it all fit thru 1 par? 
Br if ok 

If not, decrease to 1 par worth 
This many left to map next time 
Bump up base address for next time 
PDR size is 1 less than wanted 
Position size for PDR value 
#RF*WRT, RT*FLG<R3)i Can we write to shared run-time? 

; Br if not 

; Set flag in PDR value saying write ok 
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«5a AmynA n'=,o-7ni 

59 003712 042701 100261 

60 003716 010160 QQQQQQf^ 

61 003722 005705 

62 003724 001416 
63 

64 
65 

66 003726 

67 003732 

68 003736 

69 003740 



3*: 



BIS 


#2, Rl 


BIC 


#100261, Ri 


MOV 


Rl, SR*PDR(RO) 


TST 


R5 


BEQ 


5* 



J Set flag in PDR value saying read ok 

5 Store PDR value 

iAny more left to map? 

J Br if not 



More than 8Kb space requested, use more pars 



020227 

101006 

006200 

_ 1 52760 

71 003750 005200 

72 003752 000715 
73 

74 
75 

76 003754 O0500O 

77 003756 000137 
70 

/ / 

80 

31 003762 1 J. 2737 

85 3 7 7 1 J 00 015/ 

S3 

84 

85 

86 

87 

88 003774 105037 

89 004000 000137 



000002 
000016 



0000000 0000000 



ADD 
CMP 

BHI 
ASR 
n Tcrj 

T i\ir 
BR 



; Increment to next par index 
R2, #2-H-7 i Valid PAR index? 

37$ ; Br if not 

RO j Convert trap region index back to # 

#SR. MOR, SR-$FLS<RO) ; Say there ar^ more to map 



i* 



Attempt to map past par 



37* 



OOOOOOG 



000001 OOOOOOG 5*: 
0000006 



: CLR 


RO 


JMF 


SETERR 


F i It i i» li ti d 




MOVB 


#1, DOTRMP 


s.>MP 


tfirxi 1 



; Step up to next fast map region # 
J Repeat until entire window set up 



; Return ECO 

i Return error to user 



i Enable TRAP to do mapping 



Disable fast run-time mapping and return the TRAP instruction to 
its standard use. 



OOOOOOG 
OOOOOOG 



SSNOMP: CLRB 
JMP 



DOTRMP 

EMTXIT 



; Say mapping not in effect 



f 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 

i '-i 


004004 






14 








15 








16 


004004 


013702 


0000020 


17 


004010 


020227 


000007 


IS 


004014 


101404 




19 


004016 


012700 


177767 


20 


004022 


000137 


OOOOOOG 


21 


004026 


006302 




23 








24 








25 


004030 


013703 


0000000 


26 


004034 


001004 




27 


004036 


012700 


000001 


28 


004042 


000137 


OOOOOOG 


29 








30 








31 








32 


004046 


013704 


0000040 


33 


004052 


020463 


OOOOOOG 


34 


004056 


103404 




35 


004060 


012700 


000005 


36 


004064 


000137 


OOOOOOG 


37 


004070 


013705 


000006G 


3S 


004074 


060405 




39 


004076 


066304 


OOOOOOG 


40 


004102 


066305 


OOOOOOG 


41 








42 








43 








44 


004106 


020563 


OOOOOOG 


45 


004112 


101402 




46 


004114 


016305 


OOOOOOG 


47 








48 








49 








50 


004120 


010537 


OOOOOOG 


51 


004124 


160437 


OOOOOOG 


52 








53 








54 








55 


004130 


000207 





Common routine used to process arguments fur shared Tun— time 
mapping EMT's. 

Outputs: 

R2 = PAR index number <2 «■ PAR). 

R3 = Pointer to current run-time descriptor block. 
R4 = Starting 64-bijte physical address of region. 
R5 == Ending 64-byte physical address of region. 
URO= Size of area that is being mapped. 

SSSTUP: 

Check the specified PAR number 

;Get PAR # 

i Must be in range to 7 

; Br if ok 

i Fatal error if other value 

i Convert par # to word table index 

Get pointer to descriptor for current shared run-time system 



7$: 



MOV 


EMTBLK+2, R2 


CMP 


R2, #7 


BL03 


7* 


MOV 


#-11, RO 


JMP 


SETERR 


ASL 


R2 



MOV 
BNE 
MOV 
JMP 



CURRDB, R3 
1* 

#EC1; RO 

SETERR 



; Get address of associated run-time descriptor 

; Better be one 

i If not then return error code 1 



1*: 



Get physical memory address 

MOV EMTBLK+4, R4 

CMP R4, RT*T0P(R3) 

BLO 3* 

MOV #EC5, RO 

JMP SETERR 

3*: MOV EMTBLK+6, R5 

ADD R4, R5 

ADD RT$BAS(R3), R4 

ADD RT*BAS(R3),R5 



; Get run-time base offset 

;Make sure it is tuithin run-time area 

; Br if ok 

; Return error 5 if too high 

; Get size of region to be mapped 

i Get offset above top of region to be mapped 

.; Bias the offsets 



Get amt of memory to be mapped 



CMP R5, RT*T0P<R3) 

BLOS 2* 

MOV RT*T0P(R3)>R5 



; Is top of request above top of run-time? 

; Br if not 

i Don't map beyond top of run-time 



Return actual, mapped sirp to user in RO 



2$: 



MOV 
SUB 

f - •! r> i r. h o H 



R5, URO 
R4. URO 



Return size of mapped region in user's RO 



RETURN 
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ESPLIT — Enable user D-space 



1 

*-) 

C 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

J. i^ 

14 

15 

16 

17 

IB 

19 

20 

21 

23 
24 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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. SBTTL ESPLIT 



ciTiabltf ussr u spac^ 



Enable/Disable I and D space split 

When one or more of a job's PARs are mapped away to 

the root memory is not released, but 

I/D space split is enabled* then the root memory which was mapped 

away by a shared run-time can be accessed as D-space. 

on machines which support I and D space (have memory management register 

3 — SR3FLG not and have D-space APR'i ~ ' "■ 



a shared run-time 
is ordinarily inaccessible. If 

>pe 
This is only valid 
emer 
IDSFLG not 0). 



Enabling D~space is done by setting the LSWll bit which says the user 
wants to split, then calling SUTOP with the current size, which then 
calls SETIiAP and copies the ordinary I-space APRs into the D-space APRs 

ail VI Biiauies u»ei' u — iij,cn..t'. 

The form of the EMT is: 

. BYTE 4, 143 



004132 
004136 
004140 
004146 
004152 
004156 



004162 
004166 



105737 
001411 
052761 
013700 
004737 
000137 



012700 
000137 



0000000 

0000000 
0000000 
0000000 
0000000 



000006 
OOOOOOG 



0000000 



ESPLIT: TSTB 
UEQ 
BIS 
MOV 
CALL 
JMP 



IDSFLG iDoes hardware support I and D space? 

SPLITR ;lf not, br to split error return 

#*UDSPC, LSWll <:R1 ) ; Set flag to enable D-space mapping 
0DTBA5, RO j Point to word beyond normal address limit 

SUTOP ,;Thi5 will do the real work 

EMTXIT 



Error, hardware does not support I and D space 



SPLITR: MOV 
JMP 



#EC6, RO 
SETERR 



; Signal error code 1 



Disable D-space split, return all mapping to I-space 

This just requires turning off the hardware D-space enable bit, 

the D-space APRs will then be ignored so they don't require cleanup. 



The form of 
. BYTE 



the EMT 
5, 143 



is: 



004172 
004176 
004200 
004206 
004214 



105737 
001771 
042761 
042737 
000137 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



DSPLIT: 



OOOOOOG 
OOOOOOG 



TSTB 

BEQ 

BIC 

BIC 

JMP 



IDSFLG ;Does hardware 

SPLITR ; Br if not 

#*UDSPC, LSWIKRI) ; Clear user D-space in use 

#USDSPC, e#SR3MMR ; And disable it in hardware 

EMTXIT 



support I and D space? 
flag 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


004220 


113701 


0000020 


14 


004224 


005301 




15 


004226 


020127 


0000000 


16 


004232 


103403 




17 


004234 


012700 


000003 


18 


004240 


000421 




19 








20 








21 








22 


004242 


11 J/00 


0000030 


23 


004246 


020027 


0000000 


24 


004252 


103403 




25 


004254 


012700 


000002 


26 


004260 


000411 




27 








28 








29 








30 


004262 


070127 


0000000 


31 


004266 


062701 


OOOOOOG 


32 


004272 


016105 


0000000 


33 


004276 


001004 




34 


004300 


012700 


000001 


35 


004304 


000137 


OOOOOOG 


36 








37 








38 








39 


004310 


013702 


0000040 


40 


004314 


004737 


004576 ' 


41 


004320 


103767 




42 


004322 


032762 


OOOOOOG OOOOOOG 


43 


004330 


001003 




44 


004332 


012700 


000004 


45 


004336 


000762 




46 


004340 


005046 




47 


004342 


032762 


OOOOOOG OOOOOOG 


48 


004350 


001402 




49 


004352 


112716 


OOOOOOG 


50 








51 








52 








53 


004356 


016204 


OOOOOOG 


54 


004362 


166104 


OOOOOOG 


55 


004366 


020504 




56 


004370 


103401 




57 


004372 


010405 





3BTT'l. Define a PL. A3 region for fas'b insppinu 

Define a PLAS window so it can be quickly mapped using the TRAP 
instruction. The region is not limited to 8Kb. All checking related 
to PAR numbers and mapped length is assumed to have been done 
when creating the window. 



EMT argument list: 
. BYTE 6j 143 
. BYTE 
. WORD 



W. NID. fmrnum 
W, NRID 



1*: 



DEC R 1 

CMP Rl.#lsfUMWCB 

BLO 2* 

MOV #EC3, RO 

BR 7* 



; PLAS window ID, <0 to MAXSRD-1> 

; R. GID to which window is associated 



i Make it O indexed 

: Is window ID in valid range? <1-NUMWCB) 

; Br if OK 

, Invalid window ID 

; Return with error 



; Verify that fast map region number is valid 

i 

2*: 



21*: 



MtJVB 


EMrBLK+3, HO 


CMP 


RO, ttMAXBRD 


BLO 


3* 


MOV 


#EC2.. RO 


BR 


7* 



j Get fast map region number 

;Is number in valid range? 
, Br i f OK 

; Invalid fast map region # 
j Return with error 



Convert window ID into ptr to window control block 



3«: 



31*: 
715: 



MUL #WC*$SZ,R1 

ADD #WCBBAS, Rl 

MOV WC*SIZ<R1),R5 

BNE 4* 

MOV #EC1,R0 

JMP SETERR 



i And offset into window control blocks 
i Point to specified window control block 
; Get # 64-byte blocks to be mapped 
; Br if window is allocated 
iElse say window is undefined 
i Return with error 



Now move window control information into fast map cells 

4*: MOV EMTBLK+4, R2 i Get ptr to region control block 

CALL CHKRCB i Verify that it is valid 

BCS 31* ) Br if invalid 

BIT #RC*LCG, RC*FLG(R2) ils this region swappable? 

BNE 41* i Br if not 

MOV #EC4, RO ; Can't fast map swappable regions! 

BR 7* ' Go do error 

41*: CLR ~(SP) j Assume I-space mapping 

BIT #RC*DSP.- RC*FLG<R2.i ; Should we use D~space instead? 

BEG 44* ; Br if not 

MOVB #SR.DSP, <SP> i If using D-space/ init flag byte 

Ensure that window won t e.xceed region bounds and update WCB cells 



44*' MOV RC*LEN(R2).- R4 

SUB WC*0FF<R1)* R4 

CMP R5, R4 

BLO 46* 

MOV R4, R5 



Oet size of region 

Figure maximum allowed window length 

Would request exceed region? 

JBr if not 

If so, just allow to end of region 
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60 
6i 
62 
63 
64 
65 
66 
67 
68 
69 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 

103 
104 



004404 
004406 
004412 
004416 



004422 
004426 
004432 

004436 
004442 
004446 
004450 
004452 
004454 
004460 
004464 
004466 
004472 
004476 
004500 
004504 
004506 
004512 
004514 
004516 
004520 
004522 
004526 
004532 
004536 
004540 
004542 
004544 
004552 
004554 
004560 



\jsj4i(6(i 
004564 
004572 



\J J. \J w'C 



010504 
062704 
072427 
110461 



016204 
066104 
116102 



020027 
103402 
005726 
000700 
1 1 0260 
111660 
006300 
01 0160 
010460 
010503 
02032/ 
101402 
012703 
160305 
060304 
005303 
000303 
052703 
042703 
010360 
005705 
001410 
006200 
152760 
005200 
062702 
000730 



112737 
000137 



OOOOOOG 



000177 
177771 
0000000 



ooooooe 
ooooooe 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

O0O2O0 

000200 



hrf f 11 i rv e: t trtJ-K 

mV R5, R4 

ADD #177, R4 

ASH #-7, R4 

MOVE R4, WC*NPR<R1) 



actual length into uiindoui control block 

to u ser 



1 „„ „ 4.k 

X cr II %^ VII 



i 
I 
f 



i Copy ufindow length 

i Bound up to full par 

; Convert #64byte blocks to #8Kb pars 

i And set into tuindouj control block 



Loop to update as many PARs as required 



Ai 



42*: 



45*: 



43*: 



000006 
100271 
OOOOOOG 



OOOOOOG OOOOOOG 
000002 



All 



000001 OOOOOOG 
OOOOOOG 



MOV 


RC*BAS<R2), R4 


Get base of 


ADD 


WC*0FF<R1),R4 


lAdd offset 


MOVE 


WC*PAR(R1)>R2 


, Get PAR ind 


this poin 


t, RO has the tra 


p #, NOT the 


MOVE 


RO, WC*TRP<R1) 


, Set trap # 


CMP 


RO, #MAXSRD 


Have we use 


BLO 


45* 


Br if still 


TST 


(SP) + 


Else clean 


BR 


21* 


And go r e p o 


MOVE 


R2, SR*PX(RO) 


Set PAR ind 


MOVE 


(SP),SR*FLG(RO) 


Init flag b 


ASL 


RO 


Convert tra 


MOV 


Rl, SR*WCB<HO) 


Set ptr to 


MOV 


R4, SR*PAR<RO) 


Set PAR val 


MOV 


R5, R3 


Get # block 


CMP 


R3, #200 


More than m 


BLOS 


43* 


Br if not 


MOV 


#200, R3 


Map through 


SUB 


R3, R5 


Get # block 


ADD 


R3, R4 


Bump PAR va 


DEC 


R3 


Convert # b 


SWAB 


R3 


Move # bloc 


BIS 


#6, R3 


Enable read 


BIC 


#100271, R3 


Clear unuse 


MOV 


R3, SR*PDR<R0) 


Set PDR val 


TST 


R5 


Need to map 


BEQ 


5* 


Br if not 


ASR 


RO 


If so, conv 


BISB 


#SR. MOR,SR*FLG(RO) J Say ther 


INC 


RO 


Bump up to 


ADD 


#2, R2 


Bump par in 


ER 


42* 


Loop throug 


necessary fast trap cells 


are set up. 


TST 


( SF ) + 


Clean I- D- 


MOVE 


#1,D0TRMP 


Enable fast 


JMP 


EMTXIT 





update) 



reg ion 

to PLAS window 
lex # <2fi-PAR #) 
trap index 

into WCB <for inswap 
>d up all trap tt'sT-" 
OK 

flag word off stack 
>rt error 

lex into fast map cell 
lyte for this region 
ip # to word index 

web in fast map ceil 

ue into fast map cell 

s that still need to be mapped 
se can map with 1 par? 

this full par 
5 left to be mapped 
ilue up for next time 
locks to # of last valid block 
ks to high byte 
I /write access 

!d PDR bits* ED is always up 
ue into fast map cell 
any more? 

ert back to trap # 

B are more regions to map 

next trap # 

dex up to next register 

h as many pars as needed 

enable fast mapping and exit 
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i 
f 



r 
< 

I 
f 
c 

i 

i 

i 



, i 
i 
i 



TSEM4 
CHKRCB 



TSX-Plus EMT Overlay MACRO V05. 05 Wednesday i8~Jan-~89 12:10 Page 25 
-- Check address of Region Control Block 



3 
4 
5 
6 
7 
8 
9 
10 
11 



14 
15 
16 

17 
IS 
19 
20 
21 
22 
23 
24 

26 
27 

29 
30 



004576 032702 000001 
004602 001014 
004604 020227 OOOOOOG 
004610 103403 
020227 



004616 



10343 



004620 020237 000000(3 

004624 103403 

004626 020237 OOOOOOG 

004632 



004634 000261 
004636 000401 



004640 000241 
004642 000207 



. SBTTL CHKRCB 



Check address of Region Control Block 



CHKHCB is called to verify that the address of a region control 
block is valid. This routine is a similar to that in TSPLAS. 



I n p t J t s : 
R2 == Region control block address to be checked 



CHKRCB: 


BIT 


#1, R2 




BNE 


1$ 




CMP 


R2, #RCBBAS 




BLO 


2« 




Ct'lP 


R2> #RCBEND 




BLO 


3* 


2*: 


CMP 


R2, SHRRGB 




BLO 


1* 




CMP 


R2, SHRRCN 




BLOS 


3* 



Address is invalid 



1*: 



BR 



9* 



A ri d r p 5 s is ok 
3f: CLC 
9*: RETURN 



jMake sure address is even 

J Br if odd 

iMake sure it is within proper region 



; See if this is a shared RCB 
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3 
4 
5 
6 
7 

a 

9 
10 
11 
IS 

14 004650 

15 004656 

16 004660 

17 004664 
18 

19 
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. i3i:>i iL r>oQO=lAng t, uflt^T'ui 

This EMT is used to control the spooling operation. 

Form of the EMT arqument block; 
.BYTE chan/l51 

WORD sub-function 
. WORD value 

Where "chan" is an open channel whose file is to be affected, 
and "sub-function" indicates which function is to be performed. 



t£.U 

21 



004670 
22 004676 
23 
24 

26 004700 

27 004704 

28 004706 

29 004712 

30 004714 

31 004720 

32 004724 
33 

34 
35 

36 004730 

37 004734 

38 004736 

39 004742 

40 004750 
41 

42 
43 

44 004754 

45 004760 

46 004762 

47 004766 
40 004772 
49 

50 
51 

52 004776 

53 005002 

54 005004 

55 005010 

56 005014 
57 



032763 
001004 
012700 

0001 37 



032763 
00 1412 



013700 
006300 
020027 
103402 
000137 
000170 
000137 



105737 
001405 
013702 

000137 



105737 

\JKJ i^UH 

013702 
000137 
000137 



105737 
001404 
013702 
000137 
000137 



0000000 OOOOOOG 

000003 
OOOOOOG 



0000000 OOOOOOG 1*: 



BIT #CS*OPN, C. CSW<R3); Is the channel open? 

BNE 1* i Br if yes 

MOV #EC3j RO j Channel not open 

JMP SETERR 

Ignore this EMT if the channel is not opened to a spooled device 

BIT #CS*SPL, C. CSW<R3); Is channel opened to a spooled device? 
BEQ 9* i Ignore the EMT if not 

Get sub-function code and branch off to processing routine 



000002G 

000006 

OOOOOOG 
005020 ' 
OOOOOOG 



OOOOOOG 
000004G 
OOOOOOG 

OOOOOOG 

000004G 
OOOOOOG 
OOOOOOG 

OOOOOOG 

000004G 
OOOOOOG 
OOOOOOG 



2*: 
9$: 



MOV EMTBLK+2, RO 

ASL RO 

CMP RO, #MXSFX 

BLO 2* 

JMP BADEMT 

JMP @SPLFNV<RO> 

JMP EMTXIT 



;Get EMT sub-function code 

i Convert to word-table index 

; Is index ok? 

; Br if ok 

; Invalid sub-function code 

; Enter processing routine 



Set Hold/Nohold flag for spool file 



SPSTHL: TSTB 
BEQ 
MOV 
OCALL 

9* : JMP 



NSPLDV 

9* 

EMTBLK+4, R2 

SPLSHF 

EMTXIT 



i Are there any spooled devices? 

; Br if not 

iGet Cno3hold flag 

; Set hold flag for file 

J Fini shed 



Set Hold/Nohold flap for spool file 



SPSTFL: TSTB 
BEO 
MOV 
JMP 

9*: JMP 



NSPLDV 
9* 

EMTBLK+4, R; 
SPLSFF 
EMTXIT 



; Are there any spooled devices? 

i Br if not 

iGet nno^f lagpage flag 

i Set flagpage flag for device 

; Finished 



Set Hoid/Nohold flag for spool file 



SPSTWD: TSTB 
BEQ 
MOV 
JMP 

9*: JMP 



NSPLDV 

9* 

EMTBLK+4, R2 

SPLSWF 

EMTXIT 



i Are there any spooled deviceB?' 

.; Br if not 

iGet wide/narrow flag 

; Set wide/narrow flag for device 

i Finished 



I 



TSEM4 TSX-Pius EHT Overlay 
Spooling control 



60 005020 004730' 

61 005022 004754' 

62 005024 004776' 

63 000006 
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i vect 


or Of ro 


utme aaares&es 


SPLFIMV: 


. WORD 




SPSTHL 




. WORD 




SPSTFL. 




. WORD 




SPSTWD 


MXSFX 


= 




. -SPLFNV 



i^OT* s u b """P un c *fc i on codss 

i — Set Cnolhold flag for file 

J 1 — Turn on flag pages for device 

. 2 — Set flag page wide/narrow for device 

i # functions 



i 



> 



f 
I 
f 

• i 
I < 
C 
' I 
4 
I 
t 

I 

' I 

I « 



< 
I 

i 

t 

€ 

I 



i 

I ( 



I 



( 



I 

I « 

€ 

i 

I' 



032737 OOOOOOG OOOOOOG 

001003 

012700 000001 

000436 



TSEM4 TSX~Plu5 EhT Overlay 
CL line control EMT's 



d 

3 
4 
5 
6 
7 
8 
9 
10 
11 



15 
16 
17 
IS 005026 

19 005034 

20 005036 

21 005042 

23 
24 

25 005044 

26 005050 
37 005054 

28 005056 

29 005062 

30 005064 
31 

32 
33 

34 005066 

35 005072 

36 005076 

37 005100 

38 005102 
39 

40 005104 

41 005106 

42 005110 

43 005116 

44 005120 

45 005124 

46 005126 

47 005132 

48 005134 
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Assorted CL EMT's — some of which duplicate CL spfun services^ but 
are also implemented as EMT's to avoid the requirement to have a 
channel open to the CL unit. 

The form of the argument block is: 



BYTE n, 155 

WORD CL-unit-number 

WORD time-sharing -line-number 



; O to <CLT0TL-1) 
;Only used for CLASN 



Require TERMINAL privilege to manipulate CL units 



B 1 T 
BNE 
MOV 
BR 



#P2*TRM. PRIVC2 .; I s this user privileged? 

12* ; Br if yes 

#EC1,R0 ; Error 1 if user not privileged 

30* 



49 005140 

50 

51 005144 

54 005152 

55 005154 
56 



013702 
020227 
103403 
012700 
000426 
006302 



113700 
020027 
103402 
005000 

000416 

006300 
001416 
032737 
001003 
012700 
000405 
016201 
001004 
012700 
000137 



000002« 
OOOOOOG 

000002 



Check to see if the specified CL unit number is valid 

.12*: MOV EMTBLK+2; R2 ; Oet specified CL unit number 

ils this in the proper range? 
i Br if ok 
; Error 2 

1*: ASL R2 i Convert CL unit # to table index 

; Nouj jump off to the individual processing routines 



M!:)V 


EMTBLK+2. R2 


CMP 


R2, #CLTQTL 


BLO 


1* 


MOV 


#EC2, RO 


BR 


30* 


ASL 


R2 



OOOOOOG 
000003 



2*: 



OOOOOOG OOOOOOG 

000010 

OOOOOOG 

000007 
OOOOOOG 



000170 005150' 

005156 ' 
005674' 
005710' 
000003 



21*: 
30* : 

> 

3*: 
CLCODE: 



MOVB 

CMP 

BLO 

CLR 

BR 

ASL 

BEQ 

BIT 

BNE 

MOV 

BR 

MOV 

BNE 

MOV 

JMP 

JMP 

unon 

. WORD 
. WORD 



EMTBLK, RO 
ROi #CLEMMX 
2* 
RO 

30* 

RO 

3* 

#PO*BYP>PRIVCO 

21* 

#ECB, RO 

30* 

CL*LIX(R2), Rl 

3* 

#EC7, RO 

SETERR 

eCLCODE<RO) 



CLEMMX = 



('■'I ACkJ 
^./ i...rn%-ii -4 

CLCLR 
CLRES 
-CLC0DE>/2 



Get subfunction code 

Is it val id? 

Br if OK 

Else return ECO 



i Convert subfunction code to index 

i Br if we don't need to check for hdui or priv 

; Does issuer have BYPASS privilege?" 

; Br if yes 

iOh. too bad. Must have BYPASS 

iGet index of T-S line CL is connected to 
i Br if it is connected to a line 
iOops.. not connected to hardware! 



; Enter the processing routine 

;0 Assign a CL unit to a line 
il Clear XOFF status (=•== SPFUN 201) 

(=== SPFUN 265) 



i 

I 
f 
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^-•L./'^^!M 



3 
4 
5 
6 
7 

a 

V 

10 

11 



23 
24 
25 
26 
27 



005156 



14 005156 

15 005162 

16 005164 

17 005166 
IS 005172 

19 005174 

20 005202 

21 005204 

22 005210 
005212 



005226 
005230 

28 005234 

29 005240 

30 005244 

31 005246 

32 005254 

33 005256 

34 005262 

35 005264 

36 005270 

37 005272 

38 005276 

39 005300 

40 005304 
41 

42 
43 
44 

45 005306 

46 005312 

47 005314 

48 005320 

49 005322 

50 005326 

51 005332 

52 005334 

53 005340 

54 005342 

55 005346 

56 005350 

57 005356 



101007 
032764 
001414 
012700 
000764 
020427 
103403 
020427 
101403 
012700 
000753 



04 A'-iy^'n 
J. Oc^WtJ 

001471 
005762 
001005 
016200 
056200 
001403 
012700 
000735 
004737 
010205 



Assign a CL unit to a line. 

The form of the EMT is: 

. BYTE 0, 155 

. WORD CL„unit. number 

.WORD line number 

("j ACIM- 

Check to see if the specified line number is ok 



013704 0000040 

001451 

006304 

020427 

101042 

032764 

001436 

020264 

00153S 

032764 

001027 

005764 

002404 

012700 

000137 

020427 



OOOOOOG 

0000000 OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

000004 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000005 

OOOOOOG 

OOOOOOG 

000003 



30* : 
4*: 



3*: 



2*: 



MOV 


EMTBLK+4, R4 


BEQ 


5* 


ASL 


R4 


CMP 


R4, #LSTHL 


I3HI 


2« 


BIT 


#*HARD, LSW3(R4.> 


BEQ 


2* 


CMP 


R2, LCLUNT(R4) 


BEQ 


22* 


BIT 


#«DEAD, LSW3<R4) 


BNE 


2* 


TST 


LCLUNT(R4) 


BLT 


4* 


MOV 


#EC4, RO 


JMP 


SETERR 


CMP 


R4, #LSTPL 


BHI 


3* 


BIT 


#*DILUP, LSW<R4) 


BEQ 


5* 


MOV 


#EC5, RO 


BR 


30* 


CMP 


R4, #FSTIOL 


BLO 


2* 


CMP 


R4, #LSTIOL 


BLOS 


5* 


MOV 


#EC3, RO 


BR 


30* 



Get specified line number 

LINE==0 ==> Free this unit 

Convert line # to line table index 

Must be a valid hatdware line 

Br if invalid 

Is this line connected to hardware? 

Br if not 

Is this CL unit already assigned to this line 

Br if yes — nothing else needs to be done 

Is this line installed? 

Br if not 

Is this line in use by another CL unit? 

Br if not 

Error 4 if line already being used by CL 

i Connecting to a primary time-sharing line? 

; Br if not 

i Is this line in use by time-sharing user? 

» Br if not 

i Error 5 if line is active as a time-sharing 

iAre uie assigning to a reserved CL line? 

i Br if not 

i Is this a valid CL line? 

j Br if yes 

i Error 3 if invalid line number 



The line number is ok. 

Deassign the CL unit from its current line association. 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

000006 

006026 ' 



?*: 



23*: 
11*: 



042762 OOOOOOG OOOOOOG 



MOV 


CL*LIX(R2),R3 i 


BEG 


6* i 


TST 


CL*XLN<R2) ; 


BNE 


23* ; 


MOV 


CL*RQH<R2),R0 > 


BIS 


CL*WQH(R2),R0 ; 


BEQ 


n* i 


MOV 


#EC6, RO ; 


BR 


30* 


CALL 


CLWAIT i 


MOV 


R2, R5 ; 


OCALL 


CLREST : 


BIC 


#CO*DTR,CLr>OPT<R£ 



Get line # currently assoc uiith this CL unit 

Br if line is not currently assigned 

Is CL unit in use for cross connect? 

Br if yes 

Anything in read queue head 

or write queue head for this CL unit? 

Br if not 

Error 6 if CL unit is currently busy 

Wait for output characters to be sent 
Get CL unit index to R5 
Reset CL unit status 
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I 



i 
I 

I 
f 



f 

I 

I < 

i 
I 

I 

I 

h 

i 



58 

60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 

■7 1 
/ X 

72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 

103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



005364 

005400 
005404 
005406 
005410 
005414 
005416 
005424 
005432 
005440 
005442 
005444 
005450 
005454 
005460 
005462 
005470 



005476 
005502 
005504 
005510 
005514 
005522 
005530 



005536 
005542 
005544 
005546 
005552 
005556 
005562 
005564 
005570 
005574 
005576 
005602 
005606 
005610 
005614 



005620 
005624 
005630 
005636 
005642 
005646 
005652 
005656 



016300 
001401 
005010 
020327 
101022 
012763 
012763 
032763 
001416 
010301 
012700 
004737 
113701 
000406 
012763 
012763 



010462 
001002 
000137 
01026# 
012764 
012764 
052764 



016403 
001401 
005013 
016403 
012700 
032703 
00 1 402 
052700 
032703 
001402 
052700 
032703 
001402 

010062 



005062 
005062 
012762 
005062 
005062 
005062 
005062 
016200 



OOOOOOG 



OOOOOOG 



24*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 7$; 
OOOOOOG OOOOOOG 



OOOOOOG 



I nJ V 

MOV 
BEQ 
CLR 
CMP 
BHI 
MOV 
MOV 
BIT 
BEQ 
MOV 
MOV 

/^ Al I 

wnt_.i_ 

MOVB 

BR 

MOV 

MOV 



31=, I JLy f n .< vr ca 1 J. 

RO .Get 
i Br i 
i Say 
.: Is t 
; Br i 

#NeDCHR, L0UTIR<R3)i Se 
#TTI!MCP. LINIR<R3); Set 
#*AUTO, ILSW2(R3); Is t 
6$ ; Br i 

R3, Rl iGet 



LCXTBL<R3) 

24* 

<R0> 

R3, #LSTPL 

7* 



CORUSR, Ri 

6* 

#LIWRTS, L0UTIR(R3) 

#LINRTS. LIN;fR<R3) 



Set 
Get 



CL routine to drop DTR 
this line not assoc uiith a CL unit 
pointer to translation table for line 
f no translation table 
no translation in effect 
his a time-sharing line 
f not 
t T/S terminal output interrupt rtn 

T/S terminal input interrupt rtn 
his line suppose to autobaud? 
f not 

number of line being released 
9600 baud speed code 
line speed 
back our line index number 



Set dummy routine to do RTS 



Associate the specified line with the CL unit 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

000102 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



21*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 
BNE 
JMP 
MUV 
MOV 
MOV 
BIS 



R4, CL*LIX (Hiri) 

21* 

EMfXIT 



> Set # of line associated with CL unit 
.; Br if not freeing this CL unit 
;LINE=0 ==> Free this CL unit 
j Set CL unit m line table 
#CLOTIR. LOUT IR<R4); Set output interrupt service routine 
#CLINCP. LINJR<R4) i Set terminal input service routine 
#*SXON, LSW10<R4)i Send XON when we start 



Set some option flags for this CL unit 



>5*: 



8*: 



9*: 



10*: 



OOOOOOG 



MOV 


LCXTBL<R4),R3 


BEQ 


25* 


CLR 


(R3) 


MOV 


ILSW2<R4), R3 


MOV 


#CO*DEF, RO 


BIT 


#*TAB, R3 


BEQ 


8* 


BIS 


#CO*TAB- RO 


BIT 


#*FORM. R3 


BEQ 


9* 


BIS 


#CO*FF, RO 


BIT 


#*8BIT, R3 


BEG 


10* 


BIS 


#CO*SBT, RO 


MOV 


RO, CL*DPT(R2) 


al i xe 


status for thji-^ C 


CLR 


CL*STA(R2) 


CLR 


CL*C0L<R2) 


MOV 


#66. >CL*LEN<R2) 


CLR 


CL*LIN<R2) 


CLR 


CL*SKP(R2) 


CLR 


CL*WID<R2) 


CLR 


CL*EPN(R2) 


MOV 


CL*EPS(R2),R0 



Get pointer to translation table for line 

Br if no translation table 

Say no translation in effect 

Get option flags for the line 

Get default CL option flags 

Does this device support tabs? 

Br if not 

Set CL tab flag 

Does this device suport form-feeds? 

Br if not 

Set CL form feed flag 

Does this device want 8-bit support? 

Br if not 

Enable 8 bit support 

Initialize CL options for this device 

unit 

Init status flags 

Current column number 

# lines per page 

r)mT'T-Qrit line number 

Lines to skip at bottom of page 

Line width 

No end-of-file form-feeds 

Get pointer to EWDSTRING buffer 



€ 
I 

\ 
i 

K 
I 
< 

C 

% 

I 

i 

4 
( 

i 



i 
f 



Ic 



\ 

) i 
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115 005662 105010 

1 lo \7\J%^00*t w^7w"u/oc; sj\j^uf\j\j\j\Lr 

117 

lis 

119 

120 005670 



000137 0000000 



CLRB 


•RO) 


CLR 


CL$EPr(R2) 


F i n a 5 h e d 




: JMP 


EMTXIT 



i No ENDSTRING 



iPinished assigning the CL unit 



c 
ff 

c 

i 



I 



> 






f 

I 



» 
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c 
f 
I 
c 

c 

I I 

► i 
I 
I 

c 
t 

t i 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 

26 
27 
28 
29 
30 
31 
32 



005674 

005674 010205 

005676 

005704 000137 0000000 



005710 

005710 010205 

005712 

005720 000137 OOOOOOG 



. SBTTL CLCLR — Clear XOFF sent and send XON 

This routine is the EMT equivalent of CL SPFUN 201 

Emt argument block: 
. BYTE 1, 155 
. WORD 



Inputs: 



Rl 
R2 



MOV 
JMP 
. SBTTL 



CL-uni t -number 



rs line in use as CL unit 
CL unit index 



. .a.! H u 

CLCLER 
EMTXIT 



;.N'esd to get CL unit index into R5 
iCall TSCLO routine to clear CL unit 



CLRES -- Reset CL line 



This routine is the EM r equivalent of CL SPFUN 265 

EMT argument block: 
. BYTE 2, 155 
. WORD 



Inputs: 
Rl 
R2 
CLRES: 

MOV 

OCALL 

JMP 



C L - u n i t • - n u m h t r 



TS line in use as CL unit 
CL unit index 



R2, R5 

CLREST 

EMTXIT 



i Need to get CL unit index into R5 
.iCall TSCLO routine to reset CL unit 



f 
I 

K 
t 
< 
I 

€ 

I 
< 
I 
I 
I 
f 



» 



I 



I < 



i 



I 

^ i 
I f 

I 

' I 

( 
{ 

i 
i 
< 
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1 

2 








3 








4 








5 








6 








7 


005724 


010246 




8 


005726 


010546 




9 








10 








11 








12 


005730 


013702 


OOOOOOG 


13 


005734 


016200 


OOOOOOG 


14 


005740 


032700 


OOOOOOG 


15 


005744 


001025 




16 


005746 


116202 


OOOOOOG 


17 


005752 


042702 


177770 


18 


005756 


042700 


OOOOOOC 


19 


005762 


020037 


OOOOOOG 


20 


005766 


001405 




21 


005770 


020037 


OOOOOOG 


■d2 


0057/4 


00101.1 




23 


005776 


062702 


000010 


24 








25 








26 








27 








28 


006002 


006302 




29 


006004 


004737 


006026 ' 


30 


006010 


010205 




31 


006012 






32 








33 








34 








35 


006020 


012605 




36 


006022 


012602 




37 


006024 


000207 





3BTTL. GL.CL.OS ""~ Close channel, opened to CL_ unit 

This routine is called to determine if the channel being closed is 
assigned to a CL unit. If it is» the .job is suspended until all output 
to the CL unit has been completed. 



CLCLOS: MOV 
MOV 



R2, - ( SP ) 
R5. -<SP) 



Determine if this channel ii 

MOV CHNADR, R2 

nUV \j. U£3W^Re.';> IfU 

13.1 I #v.,s*oPi_j n\j 

BNE 9* 

MOVB C. DEVQ(R2), R2 

BIC #-C<7>, R2 

BIC #-C<CS*NMX>, RO 

CMP RO, CLDEVX 

BEQ 1* 

CMP RO, CIDEVX 

JBNE V* 

ADD #8. . R2 



opened to a CL unit 



Get address of current channel block 

Get channel status uiord 

Is this a spooled device? 

Br if yes — Don't wait for output to finish 

Get unit number 

Clear all but unit number 

Mask out all but device table index 

Is this a CL device? 

Br if yes 

Is this a 

Br It not 

Bias unit 



CI device?" 

number by S for CI 



This is a CL device being closed. 
Wait for all output to be completed. 



1$: 



9*: 



ASL 


R2 


CALL 


CLWAIT 


MOV 


R2, R5 


OCALL 


CLREST 


Finished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R2 


RETURN 





Convert to word table index 
Wait for all output to finish 
Get CL unit index to R5 
Reset CL unit status 






i 

I 
< 

( 
\ i 



006026 010346 
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1 

P 

3 

4 

5 

6 

7 

S 

9 
10 
li 
12 
13 
14 

15 006030 
16 
17 
IS 

19 006034 

20 006042 

21 006044 

22 006050 

23 006052 

24 006060 
006062 
006070 
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finish 



. SBTTL CLWAIT 



Wait for CL output to finish 



012703 000024 



This routine is called to check to see if all characters which have 
been queued for transmission on a CL line have actually been transmitted. 
If there are still pending characters the job is suspended for a while 
to give the characters time to be sent. 

Inputs: 
R2 ~ CL unit index 

CLWAIT: MOV R3, -(SP> 

i 

; Set maximum number of times uie uiii wait for output to finish 
MOV #20 . R3 i Set max iteration count 

See if there are any output characters pending for this CL unit 



do 
26 
27 
28 
29 
30 

31 006072 

32 006076 

33 006102 

34 006104 

35 006106 
36 

37 

38 

39 006112 

40 

41 

42 

43 006114 

44 006116 



026262 

001013 
016200 

nn 1 /! *-> f 

■WW i. -Ttt. J. 

032762 
00 1004 
03S7oO 
001411 



0000000 0000000 1*: 

0000000 

0000000 OOOOOOG 
OOOOOOQ OOOOOUti 



CtIP CL*0RS(R2), CL*0RA(R2) i Are there any pending output chars? 

BNE 2* i Br if yes 

MOV CL*LIX(R2), RO J Get index # of line CL is connected to 

BEG 9$ iBr if CL unit not connected to line 

BIT #CM*EFP, CL*STA<R2); Are we doing end-of-file processing? 

BNE 2* iBr if yes 

Bll #*XCHAR, LSW3«HO.); Is output transmission to that line active? 

BEQ 9* i Br if not 



012746 
012746 
010600 
104375 
062706 



077330 



012603 
000207 



OOOOOOG 
012000 



000004 



There are some pending output characters. 

Suspend job for a little while and then check again. 

2*: MOV #CLWTIMj -(SP) ; Push pointer to time value cells 

MOV #<:24*400>, -(SP) iPush EMT argument code 

MOV SP> RO ; Point to EMT arg block we built on stack 

EMT 375 J Do . TWAIT 

ADD #4. > SP i Pop EMT argument block from stack 

Go back and check for output pending 

SOB R3, 1* j Go back and check for output pending 

There is no output pending or we have wait as long as we are willing 

9$; MOV <SP)+, R3 
RETURN 



( 

( 

( 

( 

i 

t 

i 

< 

I 

* 

t 

( 

I 

i 
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sBTTL Performance monitor emt's 



;=: 








3 








4 








5 








6 








7 








e 








9 








10 








11 








12 








13 








14 


006120 


113705 


0000000 


15 


006124 


120527 


000003 


16 


006130 


101402 




17 


006132 


000137 


OOOOOOG 


18 


006136 


006305 




19 


006140 


000175 


006144' 


21 


006144 


006154' 




22 


006 1 46 


00636(b • 




23 


006150 


006402 ' 




24 


006152 


006416 ■ 





The follouJing EMT ' s are used to control the TSX-Plus performance 
monitor sustem. 

The EMT sub-function stored in byte of the argument block controls 
the action of the emt. The valid sub-functions are: 

- Initialize the performance monitor system. 

1 = Start doing performance monitoring. 

2 = Suspend performance monitoring. 

3 = Stop performance monitor and return result values. 

GET SUB -FUNCTION CODE FOR EMT 

VALID SUB-FUNCTION CODE? 

BR IF OK 

INVALID EMT CODE 

CONVERT TO WORD-TABLE INDEX 

ENTER PROCESSING ROUTINE 



— INITIALIZE 

1 — START MONITORING 

2 — SUSPEND MONITORING 

3 — END ANALYSIS 



PMEMT: 


MOVB 


EMTBLK, R5 




CMPB 


R5, #3 




BLOS 


1* 




JMP 


BADEMT 


1^: 


ASL 


R5 




JMP 


©PMRVEC <R5) 


PMRVEC: 


. WORD 


PMINIT 




WORD 


PMSTRT 




. WORD 


PM3T0P 




. WORD 


PMEND 



I 
i 

( 

) 
> i 

I 
I * 

i 
i 
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I 



24 

2t7 



3 

4 

5 

6 

7 

S 
o 

10 
11 

12 

i rt 

14 006154 

15 006160 

16 006162 

17 006166 
IS 006172 

19 006176 

20 006200 

21 006204 

22 006206 

23 006210 
006212 
006216 

26 006222 

27 006230 
28 

29 
30 

31 006234 

32 006240 

33 006244 

34 006250 

35 006254 

36 006262 

37 006264 

38 006266 

39 006270 

40 006272 

41 006276 

42 006300 

43 006302 

44 006304 

46 006312 

47 006314 

48 006320 
49 

50 
51 
52 
53 

54 006324 

55 006330 

56 006334 

57 006336 



001004 
012700 
000137 
113702 
001411 
120237 
001406 
005000 
006202 
010237 
OOOlw-J/ 
1 1 3737 
005037 



013705 
010537 
013703 
010337 
013737 
160503 
000241 
006003 
005002 
071237 
005703 
001401 
005202 
006302 

j»^ /"^ y-v '^ *-i "» 

103002 
013702 
010237 



xnit^lajLlZe p e r rOriiiciiiC e iTiOii i wOr i n 9 ■ 

Arguments: 

1. Base address of region being monitored. 

2. Top address of region being monitored. 

3. Number of bytes per cell in histogram. 

4. PF* control flags. 

Errors: 

= Performance monitor already in use. 

1 = Performance monitor not generated in. 



OOOOOOG 

000001 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



000002G 
OOOOOOG 
000004G 
OOOOOOG 
0000 lOG OOOOOOG 



PMINIT: 



5$; 



1$: 



TST 


PMCELS 




13 NE 


5* 




MOV 


#EC1,R0 




JMP 


SETERR 




MOVE 


PMUSER. R2 




BEQ 


1* 




CMPB 


R2, CORUSR 




BEQ 


1* 




CLR 


RO 




ASR 


R2 




MOV 


R2, URO 




JMP 


SETERR 




MOVE 


CORUSR, PMUSER 


i 


CLR 


PMRUN 


» 



WAS PERFORMANCE MONITOR GENNED IN? 

BR IF YES 

RETURN ERROR CODE 1 

IS ANYONE DOING PERFORMANCE MONITORING NOW? 

BR IF NOT 

ARE WE THE ONE? 

BR IF YES 

PM IN USE BY SOMEONE ELSE — RETURN ERROR O 

RETURN # OF JOB THAT OWNS PM IN USER'S RO 



SAY WE ARE USING PM FACILITY 
DON'T START MONITORING YET 



OOOOOOG 



\J\J\J\J\JQ'a 

000006G 
OOOOOOG 



Save information about region being monitored. 

; GET BASE ADDRESS OF REGION 
; GET TOP ADDRESS OF REGION 



; GET # BYTES IN REGION BEING MONITORED 

■> CONVERT TO # WORDS 
; SET FOR DIVIDE 

i DIVIDE BY # CELLS IN PM DATA AREA 
■> IS REMAINDER ZERO? 
; BR IF YES 

; ROUND UP QUOTIENT IF NOT 
2*: ASL R2 i GET # BYTES PER PM CELL 

; COMPARE WITH REQUESTED # BYTES PER CELL 
; USE LARGER VALUE 

; NUMBER OF BYTES PER CELL 



4*: 



MOV 


EMTBLK+2, R5 


MOV 


R5, PMBASE 


MOV 


EMTBLK+4, R3 


MOV 


R3, PMTOP 


MOV 


EMTBLK+10, P 


SUB 


R5, R3 


CLC 




ROR 


R3 


CLR 


R2 


DIV 


PMCELS, R2 


TST 


R3 


BEQ 


2* 


INC 


R2 


ASL 


R2 


CMP 


R2, EMTBLK+6 


BHIS 


4* 


MOV 


EMTBLK+6, R2 


MOV 


R2, PMNBPC 



Zero performance monitoring count cells. 
<Enter system state so that we are running 
access PM data Bvea, throuqh PAR6. ) 



on interrupt stack and can 



012700 006362' 
004737 OOOOOOG 
OOOOOOG 
013700 OOOOOOG 



MOV 


#6$, RO 




CALL 


ENSYS 




. WORD 


FPfMOV 




MOV 


PMCELS, 


RO 



i GO TO 6* ON EXIT FROM SYSTEM STATE 

i ENTER SYSTEM STATE 

,; Set fork processing priority 

; GET # CELLS 



( 
I 

4 

t 

4 



i 

4 
I 

% 

i 
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58 


006342 


012705 


OOOOOOG 


59 


006346 


013737 


OOOOOOG 


60 


006354 


005025 




61 


006356 


077002 




62 


006360 


000207 




63 








64 








65 









OOOOOOG 



3«: 



66 006362 000137 OOOOOOG 



6$: 



MOV 


#VPAR6, R5 


MOV 


PMFAR, €#KPAR6 


CLR 


(R5) + 


SOB 


R0> 3* 


RETURN 




Fini shed 




JMP 


EMTXIT 



i ACCESS AREA THROUGH PAR6 REGION 

> MAP TO PERFORMANCE MONITOR DATA AREA 

i ZERO DATA VECTOR 

iEXIT SYSTEM STATE -- GO TO 6* 



; EXIT FROM EMT 



i 



I 

i 

I 



c 

4 



I 

i 

I 
I I 

I 4 
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4 


006366 


004737 


006616' 


5 


006372 


005237 


OOOOOOG 


6 


006376 


000137 


OOOOOOG 


7 








8 








9 








10 








11 


006402 


004737 


006616' 


12 


006406 


005037 


OOOOOOG 


13 


006412 


000137 


OOOOOOG 


14 








15 








16 








17 








IS 








19 








20 








21 








22 








23 








24 








25 








26 








27 








29 








30 








31 








32 








33 


006416 


004737 


006616' 


34 


006422 


005037 


OOOOOOG 


35 


006426 


005037 


OOOOOOG 


36 








37 








38 








39 


006432 


013701 


000002G 


40 


006436 


010100 




41 


006440 


004737 


OOOOOOG 


42 


006444 


013746 


OOOOOOG 


43 


006450 


106621 




44 


006452 


013746 


OOOOOOG 


45 


006456 


106621 




46 


006460 


013746 


OOOOOOG 


47 


006464 


106621 




48 


006466 


013746 


OOOOOOG 


49 


006472 


106621 




50 








51 








52 








53 








54 








55 








56 


006474 


012700 


006576' 


57 


006500 


004737 


OOOOOOG 



wi >/ a r I- Ml o n 1 i; o r 1 M g e x e c u "t i {» li . 



PMSTRT: CALL 
INC 
JMP 



PMCHKU 

PMRUN 

EMTXIT 



i MAKE SURE WE ARE PM USER 
I START MONITORING 



Suspend performance monitoring. 



PMSTOP: CALL 
CLR 

rir 



PMCHKU 
PMRUN 

EMTXIT 



; MAKE SURE WE ARE PM USER 
; SUSPEND PM MONITORING 



Return results of performance monitoring. 

Arguments: 

1. Address of vector to receive parameter values. 

2. Address of area to receive count vector. 

3. Size of area to receive count vector <# bytes). 

Values returned in parameter vector: 

1. Base address of monitored region. 

2. !op address of monitored region. 

3. Number of bytes per count cell. 

4. PF* control and status flags. 

Errors: 

= This job is not doing a performance monitor. 

1 = Area for count vector is too small. 



PMEND: 



CALL 

CLR 
CLR 



PMCHKU 

PMRUN 

PMUSER 



Return parameter values 



MAKE SURE WE ARE PM USER 

STOP MONITORING 

SAY PERFORMANCE MONITOR IS FREE 



i GET ADDRESS OF USER'S RECEIVING AREA 
; VALIDATE THE ADDRESS 

; RETURN BASE ADDRESS 

i RETURN TOP ADDRESS 

i NUMBER OF BYTES PER CELL 

i STATUS FLAGS 



Neturn count values. 

Enter system state so that lue are running on the interrupt stack and 
can map to PM data area through PAR6. 



MOV 


EMrBLK+2. Rl 


MOV 


R1,R0 


CALL 


VALADW 


MOV 


PMBASE, -<SP> 


MTPD 


(Rl) + 


MOV 


PMTOP, -(SP) 


MTPD 


( R 1 ) + 


MOV 


PMNBPC, ~<SP> 


MTPD 


(Rl) + 


MOV 


PMFLGS, -(SP) 


MTPD 


( R 1 ) + 



MOV 

CALL 



#3*, RO 
ENSYS 



i GO TO 3* ON RETURN FROM SYSTEM STATE 
i ENTER SYSTEM STATE 



i 
i 
I 
I 
I 
I 
f 

i 
f 
f 
< 
i 
i 
i 
i 
c 

4 
i 
i 
f 
< 
c 



r 
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5S 

60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 



006504 

006512 
006514 
006520 
006524 
006526 
006532 
006536 
006544 
006550 
006552 
006554 
006560 
006564 
006566 
006570 
006574 



006576 
006602 
006604 
006610 
006614 



006616 
006624 
006626 
006630 
006634 
006636 
006642 
006646 



OOOOOOG 

KJS. vJ/UeJ 
010200 

004737 
013703 
006203 
013704 
012705 
013737 
005037 
012546 
106622 
063704 
020437 
103003 
077310 
005237 
000207 



U J 3 700 
001402 
000137 
000137 
000000 



123737 
001410 
005000 
113702 
006202 
010237 
000137 
000207 



OOOOOOG 
0000060 

OOOOOOG 
OOOOOOG 
OOOOOOG 
006614' 



OOOOOOG 



006614' 



006614' 

OOOOOOG 
000000<5 



OOOOOOG 





. WORD 


FP*Muv 




MOV 


EMrDLK+4, R2 




MOV 


R2, RO 




CALL 


VALADW 




MOV 


EMTBLK+6, R3 




ASR 


R3 




MOV 


PMBASE, R4 




MOV 


#VPAR6, R5 




MOV 


FMFAR, e#KPAR6 




CLR 


PMDVFR 


1*: 


MOV 


<R5)+, -<SP) 




MTPD 


<R2) + 




ADD 


PMNBPC, R4 




CMP 


R4, PMTOP 




BHIS 


2* 




SOB 


R3, 1* 




INC 


PMOVFR 


2$: 


RETURN 
F i n i & h e d 




3* : 


MLiV 


PMOVFR, RO 




BEQ 


4* 




JMP 


SETERR 


4*: 


JMP 


EMTXIT 


PMC 


]VFR: . WORD 






• Fork processing priority 

i GET ADDRESS OF USER'S BUFFER 

; VALIDATE THE ADDRESS 

GET # BYTES IN USER'S AREA 

CONVERT TO # WORDS 

GET ADDRESS OF BASE OF MONITORED REGION 

ACCESS PM DATA AREA THROUGH PAR6 REGION 

SET PAR6 TO MAP TO PM DATA AREA 

SAY USER BUFFER HAS NOT OVERFLOWED 

GET COUNT VALUE 

MOVE TO USER'S AREA 

ADVANCE ADDRESS COUNTER 

RETURNED ALL VALUES? 

BR IF YES 

CONTINUE MOVING 

SIGNAL OVERFLOW OF USER'S AREA 

EXIT SYSTEM STATE — GO TO 3* 



GET USER OVERFLOW ERROR FLAG 

BRANCH IF NO OVERFLOW 

ELSE REPORT ERROR TO USER 

FINISHED 

USER BUFFER OVERFLOW ERROR FLAG 



Subroutine to check if the current user is doing a performance monitor. 
If not an error return with code is taken. 



OOOOOOG OOOOOOG PMCHKU: 



OOOOOOG 



OOOOOOG 
OOOOOOG 



1$: 



CMPB 


CORUSR, PMUSER 


BEQ 


1* 


CLR 


RO 


MOVB 


PMUSER. R2 


ASR 


R2 


MOV 


R2, URO 


JMP 


SETERR 


RETURN 





ARE WE PM USER? 

BR IF YES 

RETURN ERROR CODE O 

RETURN # OF USER WHO OWNS PM IN RO 



TSEM4 
CKACJB 
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— See if access to another job is allowed 



I' 

I ( 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

■i rt 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
lib 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

ft c. 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL CKACJB — See i ^' access to another job is alloujed 

Determine if the current job is privileged to access another job. 

Inputs: 
R2 = Job index number of job we wish to access. 

Outputs: 
C-flag cleared ==> Access ok 
C-flag set ==> Access disallowed 



006650 010146 



CKACJB: MOV 



R 1 , - < SP ) 



Always allow access to our own job 



006652 

006656 



006660 
006666 



006670 
006674 
006702 
006704 
006710 



006712 
006720 
006722 
006730 



006732 
006740 
006742 
006750 



006752 
006754 



120237 

001437 



032737 
001033 



113701 
126162 
001425 
026201 
001422 



026162 
001014 
032737 
001012 



026162 
00 1 004 
032737 
001002 



000261 
000401 



0000000 



CMPB 

BEQ 



R2. CORUSR 

7* 



J Affecting our own job? 
i Br if yes 



0000000 OOOOOOG 



0000000 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



If we have WORLD privilege we can access any job 

BIT #P2*WRL> PRIVC2 ; Do we have WORLD privilege? 
BNE 7* i Br if yes 

Always allow access to our virtual lines and children jobs. 

MOVB CORUSR, Rl ; Get our job index number 

CMPB LNPRTM<Rt ), l,NPRIM<R2) j Do we have the same primary line? 

BEQ 7* iBr if yes 

CMP LPARNT(R2),R1 iAre we parent of this job? 

BEQ 7* iBr if yes 

See if project numbers of jobs match 

CMP LPR0J<R1)> LPRDJ<R2) > Do project numbers match? 

BNE 6* ; Br if not — We cannot change job 

BIT #P2*GRP>PRIVC2 -Do we have GROUP privilege? 

BNE 7* iBr if yes 

Project numbers match, check programmer numbers. 

CMP LPR0G(R1 ), LPR0G(R2) ; Do programmer numbers match? 

BNE 6* ; Br if not 

BIT #P2*SAM, PRIVC2 ; Do we have SAME privilege? 

BNE 7* i Br if yes 

We cannot access the job 



6$: 



SEC 
BR 



i Signal failure on return 



9* 



006756 000241 



006760 012601 



7* 



9« 



We tan access the job 
n r 



j Signal success on return 



Finished 
MOV 



t 
t 
I 

i 

i 
I 
I 
< 

c 

I 

C 



i 



<SP)+, Rl 



I* 

i ' CKACJB — See if access to another job is allowed 



{ 

i 
i 



i 
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RETURN 
Errors detected; 
«•** Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 9639 Words i 38 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-ll 

Elapsed time: 00:00:43.09 
, LP: TSEM4=DK: TSEM4/C/N: SYM 



i 
t 
I 

4 

( 
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*SBIT 


i- 


-73 


$AUTO 


1- 


-77 


*CTRLO 


1- 


-69 


*CTRLS 


1- 


-69 


*DEAD 


1- 


-75 


*DEI3U0 


1- 


-64 


*DETCH 


1- 


-67 


*DILUP 


1- 


-67 


$DISC^^I 


1- 


-71 


*FORM 


1- 


-62 


*HARD 


1- 


-75 


*i:NKMN 


i- 


-56 


*IOMAF 


i- 


-55 


*LOFCF 


1- 


-53 


*NOIN 


1- 


-53 


*NOVLN 


1- 


-53 


*RBRK 


1- 


-54 


*RDSAV 


1- 


-57 


fRNIOP 


1- 


-63 


*RNMLK 


1- 


-63 


*SCOPE 


1- 


-6i 


*SETRN 


1- 


-63 


*SUCF 


1- 


-53 


fSUSPN 


1- 


-67 


*SXON 




-78 


$TAB 




-61 


*UDSPC 


1- 


-84 


*VBELL 


1- 


-52 


*VIRJB 


1- 


-61 


*VNOTT 


1- 


-52 


*XCHAR 


1" 


-81 


. . . VI 


3- 


-66 


. . . V2 


3- 


-66 


ABORT 


1- 


-64 


BADEMT 




-56 


C. CSW 


1- 


-74 


C. DEVQ 




-SO 


CIDEVX 




-SO 


CHAIN 




-60 


CHKRCB 


24- 


-40 


CHNADR 




-74 


CHNSIZ 




-59 


CINDAT 




-60 


CINFLG 




-60 


CINMOV 


3- 


-91 


CKACJB 


13- 


-5 


CL.*COL 




-79 


CL*EPN 




-80 


CL*EPP 




-80 


CL*EPS 




-SO 


CL*LEN 




-79 


CL^LIN 






CL*LIX 




-76 


CL*OPT 




-79 


CL*ORA 




-81 


CL*ORS 




-81 



28-100 








12-7 


28-67 






13-42 








13-41 








28-23 








3-210 








11-9 


16-19 






10-6 


12-5 


13- 


-25 


13-44 








3-146 


28-97 






28-19 








2-7 


3-G 






1-63 


3-183 






16-21 








16-23 








16-17 








12-13 








3-23 


3-177 






3-181 








3-191 


3-193 






3-140 








3-159 








16-21 








10-13 


10-18 


13- 


•43 


28-85 








1-78 


3-143 


28- 


-94 


23-21 


23-41 






16-129 


16-161 






3-131 








16-132 








31-25 








3-66 


3-74 


3- 


"74 


3-66 


3-66# 


3- 


-66# 


3-224 








2-9 


18-19 


26- 


-30 


26-14 


26-21 


30- 


-13 


30-16 








30-21 








3-S3 


3-87 


3- 


•88 


25-9# 








26-13 


30-12 






3-51 


3-53 


3" 


-55 


3-105« 


3-106^s• 


3- 


-109 


3-84 


3-86» 


3- 


-220* 


3-112 


5-S# 






17-88 


35-12# 






28-108# 








28-113* 








28-1 16# 








28-114 








28- 109* 








28-1 10# 








27-46 


28-45 


28- 


-79-M- 


li-38«' 


28-57+^ 


28- 


-103* 


31-19 
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